classcheckpwd.asp

来自「这是一个基于sql和asp的网页设计」· ASP 代码 · 共 68 行

ASP
68 行
字号 
<!--#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>&nbsp;</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>&nbsp;</p>
  <%response.end
else

end if

response.Cookies("IdClass")=IdClass
response.redirect"ClassMain.asp"

%>

classcheckpwd.asp - 源码说明

本页面展示了「这是一个基于sql和asp的网页设计」中的 classcheckpwd.asp 源码文件，采用 ASP 编程语言编写，共 68 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与sql相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?