?? 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 + -