📄 rzlogin.asp
字号:
<!--#include file=conn.asp-->
<%
on error resume next
UserName1=request.form("UserName")
passwd1=trim(request.form("passwd"))
set rs=server.createobject("adodb.recordset")
sql="select * from rzuser where username='"&username1&"'"
rs.open sql,conn,1,3
if rs.eof then
response.Write("用户名不存在，请联系网络中心sunny_am@wanschool.com")
else if passwd1<>rs("passwd") then
response.write "<title>错误！</title>"
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><a href='javascript:history.go(-1)'>点击这里返回重新输入</a></p></td></tr></table>"
else
session("UserName")=RS("Username")
session("charge")=rs("charge")
session("classno")=rs("classno")
if session("charge")=1 then
response.redirect "ke.asp"
else
response.redirect "cx.asp"
end if
end if
end if
rs.close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -