用ASP開發(fā)一個(gè)在線考試程序（四）

2019-11-18 22:18:32

字體：大中小

供稿：網(wǎng)友

Checkuser.asp
　　在應(yīng)用程序的開始，訪問者鍵入了他們的口令之后，他們的細(xì)節(jié)被指向了一頁，如sendregister.asp,來檢驗(yàn)一下具體
的用戶名和口令在數(shù)據(jù)庫中是否存在。
sql_check = "select count(*) from loginuser where username ='" & _
username &"' and passWord = '" & useremail &"'"
Set RS_check = application("Conn").Execute(sql_check)
If RS_check(0) < > 0 Then
session("username") = request.form("username")
response.redirect "default.asp"
End If
If RS_check(0) = 0 Then
Session("error") = "WRONG USER NAME OR PASSWORD"
response.redirect "index.asp"
End If
　　sql命令檢查一個(gè)特定的用戶是否已經(jīng)注冊了。如果返回值為0，就表明用戶名或email 無效，將用戶引導(dǎo)回注冊頁。
如果是會(huì)員，就被引導(dǎo)到default.asp 頁。這一次又用到了替換函數(shù)，以保證如果會(huì)員鍵入了‘ （單引號），就要用''
(雙引號)來替換。
username = replace(request.form("username"),"'","''")
useremail = replace(request.form("password"),"'","''")
選擇一個(gè)測驗(yàn)
Default.asp
　　一旦成功登錄，就出現(xiàn)第二個(gè)界面，提供會(huì)員可以選擇的測驗(yàn)科目的列表。在本例中，我們有HTML 和DHTML ，當(dāng)然可
以增加表格以提高主題數(shù)。Default.asp 要求表格安裝一個(gè)下拉菜單，其中包含主題的列表。查詢數(shù)據(jù)庫，從試卷的表格
中搜集兩個(gè)域。
sql_papers = "select *id, topic from paper sort order by topic asc"
SET RS_papers = Application("Conn").Execute(sql_papers)
　　為了在下拉菜單中顯示結(jié)果，使用以下代碼：
SELECT size=1 name=select1 onchange="msec(document.form1._
select1.options[document.form1.select1.selectedIndex].value);" >
< option value="0" >Select the examination
< %Do while not RS_papers.EOF% >
< option value="< %=RS_papers("id")% >" >< %=lcase(RS_papers("topic"))% >< /OPTION >
< %
RS_papers.MoveNext
Loop
% >
　　msec函數(shù)在X值的基礎(chǔ)上調(diào)用 redirect.asp，把查詢字符串: ?x 的值作為下拉菜單中被選擇的項(xiàng)的值。
function msec(x)
{if (x==0)
{ alert("Please select any one of the Examinations")
}
else
{ location.href="redirect.asp?section=" + x
}
}

上一篇：將ASP代碼移植為VB COM組件-1

下一篇：用ASP開發(fā)一個(gè)在線考試程序（三）