📄 classcheckpwd.asp
字号:
<!--#include file="connectionstring.asp"-->
<%
response.expires=0
%>
<%
FUNCTION checkpwd(IdClass,PwdClass)
dim conn,param,rs
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strConn
sql = "select * from classid where id='"&IdClass&"' and pwd='"&PwdClass&"'"
set rs = conn.execute(sql)
if rs.eof then
checkpwd = false
else
checkpwd =true
end if
end function
IdClass = request("IdClass")
PwdClass = request("PwdClass")
if IdClass="" or PwdClass="" then
%>
<body background="Back1.jpg">
<hr color="#000080">
<font size="4" font color="#FF0000"> 班级号或密码为空！
<p></p>
<p align="center">请按下面的按钮回到选单</b></font></p>
<hr color="#000080">
<p align="center"><a href="ClassCheckPwd.htm" target="_top"><img border="0" src="1.GIF" width="63" height="59"></a></p>
<p align="center"> </p>
<p> </p>
<%
response.end
end if
if not checkpwd(IdClass,PwdClass) then
%>
<body background="Back1.jpg">
<hr color="#000080">
<font size="4" font color="#FF0000"> 班级号或密码错误！
<p></p>
<p align="center">请按下面的按钮回到选单</b></font></p>
<hr color="#000080">
<p align="center"><a href="ClassCheckPwd.htm" target="_top"><img border="0" src="1.GIF" width="63" height="59"></a></p>
<p align="center"> </p>
<p> </p>
<%response.end
else
end if
response.Cookies("IdClass")=IdClass
response.redirect"ClassMain.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -