| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 698 人关注过本帖
标题:求高手帮忙解答 asp 会员登陆时间验证
取消只看楼主 加入收藏
cy5505chyu
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-5-7
结帖率:33.33%
收藏
已结贴  问题点数:20 回复次数:3 
求高手帮忙解答 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
%>
搜索更多相关主题的帖子: password Request 时间 会员 用户 
2011-05-07 10:40
cy5505chyu
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-5-7
收藏
得分:0 
不是这个意思 是说 我加个时间限制 比如 2012-5-12日前登陆都有效 过了这个时间就没效了 就登陆不上
2011-05-07 11:11
cy5505chyu
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-5-7
收藏
得分:0 
回复 4楼 wangjy500
怎么加? 能详细说下吗
2011-05-07 23:28
cy5505chyu
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2011-5-7
收藏
得分:0 
路过的高手帮帮忙看看吧
2011-05-08 21:12
快速回复:求高手帮忙解答 asp 会员登陆时间验证
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015109 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved