📄 passwords.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Self Contained Password Retreival</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<body class="topbar">
<%
'get input stream
varAction = request("Action")
FUNCTION FORMWRITE
response.write "<form name='frmPassLookup' method='POST' action='passwords.asp?Action=Look'>"
response.write "<input name='txtUsername' type='text' class='input'><br>"
response.write "<input type='submit' name='submit' value='find'>"
response.write "</form>"
END FUNCTION
if varAction = "" then
'print the form to look for password
FORMWRITE
else
varUsername=request("txtUsername")
varDB = server.mappath("natterchat11.mdb") 'home
varDB = server.mappath("natterchat11.mdb") 'bugs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Set oRS = Server.CreateObject("ADODB.RecordSet")
Conn.Open varDB
Dim varSQL
varSQL = "SELECT Password FROM USERS WHERE Username='" & varUsername & "';"
Set oRS = Conn.Execute(varSQL)
if oRS.EOF then
response.write "There is no username in the database"
else
oRS.movefirst
varPassword = oRS("Password")
response.write "The password for " & varUsername & " is " & varPassword & "."
end if
FORMWRITE
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -