最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp简单用户登陆代码
时间：2022-07-02 22:37:37 编辑：袖梨 来源：一聚教程网
if cstr(request("code"))cstr(session("getcode")) then
response.write""
response.end
end if
dim userid,password
username=request("username")
password=md5(request("password"))
set rs=server.CreateObject("adodb.recordset")
sql="select username,vip,jifen1,lastlogin,thislogin,logins from tgy where username='"&username&"'and password='"&password&"'"
rs.open sql,conn,3,3
if rs.eof then
response.Write ""
else
session("username")=rs("username")
if day(rs("lastlogin"))day(date()) then
if rs("jifen1")="" or isnull(rs("jifen1")) then
rs("jifen1")=5
else
rs("jifen1")=rs("jifen1")+5
end if
end if
rs("lastlogin")=rs("thislogin")
rs("thislogin")=now()
rs("logins")=rs("logins")+1
rs.update
session.timeout=20
response.Write ""
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
相关文章
- 夸克网页版入口-夸克地址直达 夸克浏览器网页版一键访问 12-26
- 免费看高清视频的软件-高清影视免费观看平台 12-26
- 网易云游戏网页版登录入口在哪-网易云游戏网页版入口直达 12-26
- 种子磁力搜索器安卓版下载-磁力搜索器种子最新版本下载 12-26
- afd网页版登录入口-快速访问AFD网页版指南 12-26
- 免费看所有漫画的app推荐-免费看漫画的app推荐无广告 12-26