📄 chklogin.asp
字号:
<!--#include file=conn.asp-->
<%
on error resume next
dim rs
UserName1=request.form("UserName")
PassWd1=request.form("PassWd")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where UserName='" & UserName1 & "'",conn,1
if passwd1<>rs("passwd") then
response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
response.write "<body>"
response.write "<p> </p><p> </p><p> </p><table width=253 border=0 bgcolor=#000000 cellspacing=1 cellpadding=0 align=center><tr><td align=center bgcolor=#FFFFFF><p> </p><p>请输入正确的管理员名字和密码</p><p> </p></td></tr></table>"
else
session("UserName")=RS("Username")
session("KEY")=rs("OSKEY")
response.redirect "main.asp"
end if
rs.close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -