?? 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 + -