求高手帮忙解答 asp 会员登陆时间验证
我想做一个会员过期就关闭 前有表里有 setupdata是会员过期日期！我用的是SQL改怎么写
这个是原来代码
<!--#include file="inc/Conn.asp"-->
<!--#include file="INC/funs.asp"-->
<!--#include file="INC/md5.asp"-->
<%
Dim username,password,md5pass
UserName=SelctStr(Trim(Request("UserName")))
PassWord=SelctStr(Trim(Request("PassWord")))
md5pass=md5(PassWord,32)
'/**********用户登陆检测**********/
Session("Info_Username")=""
ErrMsg=""
sql="select id,md5pass,setupdata from leaguelistnd where username='"&UserName&"'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.OPEN SQL,Conn,1,1
IF Not Rs.EOF Then
'先验证md5密码
IF Rs("isuser")=1 Then
IF Rs("md5pass")<>md5pass Then
ErrMsg="登陆失败：登录密码错误！"
End If
Else
ErrMsg="登陆失败：帐户还没有经过审查！"
End IF
Session("Info_Id")=Rs("Id")
Else
ErrMsg="登陆失败：登陆用户名或登陆密码错误！"
End IF
IF ErrMsg<>"" Then
Response.Write "<script language=JavaScript>alert('"&ErrMsg&"');window.history.back(-1);</script>"
Response.End()
Else
Response.write "<script language=JavaScript>alert('登录成功!');window.location='index.asp';</script>"
Response.End()
End IF
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
