📄 index.asp
字号:
<%
If Session("user_type")<>"T" Then
Response.Redirect "../../../../index.asp"
End If
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<html>
<head>
<title>查找密码</title>
<link rel="stylesheet" href="../../../system/all.css">
</head>
<body>
<h2 align=center>查找密码</h2>
<form name="form1" method="POST" action="">
<center>
<TABLE width=95%>
<TR>
<TD>用户名</TD>
<TD><input type=text size=15 name="user_id"></TD>
</TR>
<TR>
<TD>用户类型</TD>
<TD>
<select name="user_type">
<option value="student">学生</option>
<option value="teacher">老师</teacher>
</select>
</TD>
</TR>
</TABLE>
<p align=center><input type=submit name=submit value=" 确 定 ">
</center>
</form>
<%
if request("user_id")<>"" then
dim sql,rs,user_id,user_type
user_id=request("user_id")
user_type=request("user_type")
if user_type="student" then
sql="select password from student where user_id='" & user_id & "'"
set rs=db.execute(sql)
if not rs.eof and not rs.bof then
response.write "<p align=center class=zhushi>您的密码是" & rs("password") & "<p>"
else
response.write "<p align=center class=zhushi>根本没有这个用户名<p>"
end if
else
sql="select password from teacher where user_id='" & user_id & "'"
set rs=db.execute(sql)
if not rs.eof and not rs.bof then
response.write "<p align=center class=zhushi>您的密码是" & rs("password") & "<p>"
else
response.write "<p align=center class=zhushi>根本没有这个用户名<p>"
end if
end if
db.close
set db=nothing
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -