check.asp

来自「标准的小型企业网站程序」· ASP 代码 · 共 43 行

ASP

43 行

<!--#include file=conn.asp-->
<%
dim sql
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where password='"&password&"' and username='"&username&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
	if password=rs("password") then
		session("admin")=rs("username")
		rs.close
		set rs=nothing
		Response.Redirect "admin.asp"
	end if
end if
rs.close
set rs=nothing
%>
<html>
<head>
<link rel='stylesheet' href='style.css'>
</head>
<body>
<br><br><br>
<table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'>
  <tr >
    <td height='15' colspan='2' align="center" class='title'>操作: 确认身份失败!</td>
  </tr>
  <tr>
    <td height='23' colspan='2' align="center" class='tdbg'> <br>
      <br>
      用户名或密码错误！！！<br>
      <br> <a href='javascript:onclick=history.go(-1)'>【返回】</a> <br>
      <br></td>
  </tr>
</table>
</body>
</html>

check.asp - 源码说明

本页面展示了「标准的小型企业网站程序」中的 check.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?