求asp代码

陈晓琳 · 发表于 2015-4-28 23:37:29

数据库名 user
uservip  time 

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

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

ttasp · 发表于 2015-4-29 23:09:20

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

陈晓琳 · 发表于 2015-5-1 14:09:03

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

ADODB.Recordset

���� '800a0cb3'

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

/admin/login.asp���� 37

ttasp · 发表于 2015-5-5 23:31:27

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

ADODB.Recordset

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

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

陈晓琳 · 发表于 2015-5-9 15:16: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数值写入数据库

ttasp · 发表于 2015-5-10 22:47:25

联系客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[求代码] 求asp代码

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[求代码] 求asp代码

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)