check_login.test2.asp

来自「ASPSQL企业网络管理系统」· ASP 代码 · 共 49 行

ASP
49 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
function safeConvert(strOrig)
	dim strTemp
	strTemp = strOrig
	if not isnull(strOrig) then
		strTemp = Replace(strTemp,"'","""")
		strTemp = Server.HTMLEncode(strTemp)
		strTemp = Replace(strTemp," ","&nbsp;")
	end if
	safeConvert = strTemp
end function
Response.Write(safeConvert("' ""'") & "<br>")
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<input name="textarea" type="text" value="<%= safeConvert(" ") %>">
<%
'On Error Resume Next

dim str,login_name,password
login_name = "1' or 1 = 1 or '1' <> '"
password = "1' or 1 = 1 or '1' <> '"
login_name = safeConvert(login_name)
password = safeConvert(password)
'login_name = safeConvert(Request.Form("login_name"))
'password = safeConvert(Request.Form("password"))
str = "select top 1 * from member where (login_name = '" & login_name & "') and (password = '" & password & "')"
Response.Write(str & "<br>")
Session("rs").Open str,Session("conn")
if not Session("rs").EOF then
	Session("login_name") = Session("rs")("login_name")
	Response.Write("login success!")
else
	Response.Write("Invalid login_name!")
end if

'Response.Write(str)
'Response.End()
Session("rs").Close

%>
</body>
</html>

check_login.test2.asp - 源码说明

本页面展示了「ASPSQL企业网络管理系统」中的 check_login.test2.asp 源码文件，采用 ASP 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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