📄 login.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%
if trim(request("username"))="" or trim(request("password"))="" then
response.write "您的名称或密码不准确?！<a href='default.asp'>请重新登录</a>"
response.end
end if
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("club.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
sqltext="select username from user_info where username='"&trim(request("username"))&"' and password='"&trim(request("password"))&"'"
rs.open sqltext,conn
if not(rs.bof or rs.eof) then
session("username")=trim(request("username"))
for i=1 to 40
if application("user" & i)="" then
notfull=true
exit for
end if
next
if notfull=true then
for i=1 to 40
if application("user" & i)=session("username") then
application("user" & i)=session("username")
exit for
end if
if application("user" & i)="" then
application("user" & i)=session("username")
exit for
end if
next
end if
' newregtime=now
sql="update user_info set newregtime=Now(),logonnum=logonnum+1,lives=lives+1 where username='"&session("username")&"'"
conn.execute sql
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect ("logon.asp")
else
response.write "您的名称或密码不准确！<a href='default.asp'>请重新登录</a>"
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -