📄 login.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="adovbs.inc" -->
<%
dbpath=server.mappath("twoloop.mdb")
set con1=server.createobject("adodb.connection")
con1.open "driver={MICROSOFT ACCESS DRIVER (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
sqlmjj="select * from tpmember where rtrim(userid)='"&trim(request("username"))&"' and rtrim(userpwd)='"&trim(request("password"))&"'"
rs.open sqlmjj,con1
if not rs.eof then
if month(rs("lastbrow"))=month(now) then
updatesql="update tpmember set currnumber=currnumber+1,countnumber=countnumber+1 where rtrim(userid)='"&trim(request("username"))&"'"
mcurrnumber=rs("currnumber")+1
else
updatesql="update tpmember set currnumber=1,lastnumber=currnumber,countnumber=countnumber+1 where rtrim(userid)='"&trim(request("username"))&"'"
mcurrnumber=1
end if
insmjj=0
con1.execute updatesql,insmjj
if insmjj=1 then
response.write "您本月第"&mcurrnumber&"次访问本站！谢谢您的惠顾！"&"<br>"
response.write "<a href="&"'vbscript:history.go(-1)'"&">返回</a>"
end if
else
response.write "请检查用户名及密码的正确性！"
response.write "<a href="&"'vbscript:history.go(-1)'"&">返回</a>"
end if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -