求asp代码

数据库名 user
uservip  time 

在会员登陆的时候，执行检测time时间，如果时间到了，uservip数据值记录为0，如果时间没到不执行

求高手帮帮忙写一下代码啦

if datediff("s",rs("time"),now())>0 then
   '"过期"
rs("uservip")=0
end if

代码插进登录哪里，不行，怎么办

ADODB.Recordset

���� '800a0cb3'

��ǰ��¼����֧�ָ��¡����������ṩ���������ƣ�Ҳ������ѡ���������͵����ơ�

/admin/login.asp���� 37

代码插进登录哪里，不行，怎么办

ADODB.Recordset

���� '800a0cb3'
...
陈晓琳 发表于 2015-5-1 14:09

代码打包发客服邮箱，技术看看

回复 4# ttasp


   
<%head("登录")%>
<%
'ww="1"
'conn.execute("update [yuyuan_gl] set [yy_admin]='"&ww&"' ,[gname_yy]='"&ww&"' where [id]=1")
TP=request("TP")
if TP<>"" then
   username=request.form("username")
   yy=request.form("yy")
   gyy=request.form("gyy")
   set Rs=server.createobject("adodb.recordset")
   Sql="select * from [yuyuan_gl] where [gladmin]='"&username&"'"
Rs.open sql,conn,1,3
if Rs.eof then

  response.write "密码错误！"
Else
  if LCase(yy)=LCase(Rs("yy_admin")) and LCase(gyy)=LCase(rs("gname_yy")) Then
   session("yy")=rs("yy") '保存session身份
   Response.Cookies("yy")=rs("yy") '保存cookies身份
   Response.Cookies("yy").Expires=DateAdd("m",12,now())
            yy="-"&v
   


if datediff("s",rs("vipredate"),now())>0 then
vip=rs("vip")
   '"过期"
rs("vip")="0"
end if


   lastdate=rs("tm")
   lastip=rs("ip")
   userid=rs("id")
   response.write "登录成功!"
                response.Redirect "yy_168dhw.asp?yy="&yy&""
  else
   response.write "密码错误！<br/>"
  end If
End If
rs.close
set rs=nothing

conn.close
set conn=nothing
else
%>

你看看这代码，为什么插入没效果，能验证，无法将0数值写入数据库

联系客服