📄 find.asp
字号:
<html>
<!--#include file="ADOfunctions.asp"-->
<% dim a,b
a=request("a")
b=request("b")
dim objRS, strSQL
if a=empty or b=empty then
response.write "<script language='javascript'>"
response.write "alert('请你输入账号密码');"
response.write "history.go(-1);"
response.write "</script>"
response.end
elseif a<>empty and b<>empty then
strSQL="select * from aa where a='"&a&"'and b='"&b&"' "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSQL,objConn,1,1
%>
<%else%>
<%end if%>
<%if objRS.EOF then%>
<%response.write "<script language='javascript'>"
response.write "alert('账号密码错误');"
response.write "history.go(-1);"
response.write "</script>"
response.end
%>
<%else%>
<% response.Redirect"zhuye.asp" %>
<%end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -