📄 login.asp
字号:
<%@ Language=VBScript %>
<%
name=trim(request("name"))
passwd=trim(request("passwd"))
'检查用户是否输入信息
if name<> "" and passwd<> "" then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql="select * from user where user='"&name&"' and passwd='"&passwd&"'"
'检查用户的合法性
Set rs=conn.Execute(sql)
if not(rs.eof) then
'检查用户是否已参加过考试，若是则进行成绩查询
if rs("adm") then
session("pass")=1
session("userid")=rs("id")
session("user")=name
response.redirect "adm.asp"
end if
if rs("score")<> 0 then
response.write rs("user")&"的考试成绩是"&rs("score")
else
session("pass")=1
session("userid")=rs("id")
session("user")=name
response.redirect "test.asp"
end if
else
Response.Write "对不起，用户或口令不正确!"
end if
%>
<%
else
end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE> 用户口令检查</TITLE>
</HEAD>
<BODY>
<FORM action="login.asp" id=FORM1 method=post name=FORM1>
<table width="32%" border="1" cellspacing="0" cellpadding="1" align="center"
bordercolordark="#ecf5ff" bordercolorlight="#6699cc">
<tr>
<td>
<div align="center">用户：
<input id=text1 name=name style="HEIGHT:22px; WIDTH: 103px" >
</div>
</td>
</tr>
<tr align="center">
<td height="40">口令：
<input id=password1 name=passwd style="HEIGHT:23px;WIDTH:101px"
type=password>
<br>
<input type="submit" name="Submit1" value="进入" class="buttonface">
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -