我想做一个会员过期就关闭 前有表里有  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
%>

你的意思是，登录之后，然后到了一定时候不动就自动转到重新登录页面？
　　可以加个　Session.timeout=10

不是这个意思 是说 我加个时间限制 比如 2012-5-12日前登陆都有效 过了这个时间就没效了 就登陆不上

数据库加个字段。
登录后当前时间与这个时间比较。

怎么加？ 能详细说下吗

路过的高手帮帮忙看看吧

去这里看下：http://topic.

例:

1: 但点击登录按钮的时候..更改会员表admin的登录日期字段loginTime为当前登录日期

即:sql="update [admin] set loginTime="&now()&" where ..."

2:判断loginTime与你想设定的日期setTime进行比较..如果超过setTime则为登录失效.

    <%
      dim setTime:setTime=""2011-05-01"
      if datediff("d",rs("loginTime"),setTime)<0 then
       response.write "超过设定日期,登录失效"
      else
       response.write "登录有效"
      end if
    %>