global.asaã
< script LANGUAGE=VBScript RUNAT=Server >
Sub Application_OnStart
  dbPath = “DBQ=” & Server.Mappath(“onlinetest.mdb”)
  dbConnectionString = “DRIVER={Microsoft Access Driver (*.mdb)}; ” & dbPath
  Set Application(“Conn”) = Server.CreateObject (“ADODB.Connection”)
  Application(“Conn”).Open dbConnectionString
End Sub
Sub Application_OnEnd
  Application(“Conn”).Close
  Set Application(“Conn”) = Nothing
End Sub
Sub Session_OnStart
End Sub
Sub Session_OnEnd
End Sub
< /script >
—————————————————————————————————————-
注å页é¢index.aspãå ¶ä¸æ两个è¾å ¥åï¼ç¨æ·ååå£ä»¤ï¼è¿ä¸¤ä¸ªè¾å ¥åéè¦å®¢æ·æºç«¯çjavascript确认ï¼ä»¥ä¾¿ä¸æå®ä»¬ä½ä¸ºç©ºç½åæ¥ä¼ éãéèçè¦æ³åå èè¯å¿ é¡»å 注åãè¿ä¸ªé¡µé¢è¿è¦æ¾ç¤ºä¸äºé误信æ¯ï¼å¦âç¨æ·åæå£ä»¤é误âãâ请éæ°éæ©ä¸ä¸ªç¨æ·åâçã注å表åä¸è¿åºå å«èçä¸äºä¸ªäººçä¿¡æ¯ï¼å¦Emaiãå¹´é¾ãæè²ç¨åº¦çãç»å½åï¼èçå°±å¯ä»¥åçèè¯ç«ç¹çå ¶å®è¯å·äºãxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
index.asp
<title>æ¼éªå·äºä¹ç½ä¸èè¯è®¾è®¡æè·¯</title>
if (theForm.username.value == “”)
{
alert(“èçå§å\”User Name\””);
theForm.username.focus();
return (false);
}
if (theForm.password.value == “”)
{
alert(“èçå£ä»¤\”Password\””);
theForm.password.focus();
return (false);
}
< table border=”0″ cellpadding=”0″ >
< tr >
< td width=”50%” >
< font face=”Verdana” size=”2″ >å§å:< /font >
< /td >
< td width=”50%” >
< font face=”Verdana” size=”2″ >< input type=text name=username size=20 maxlength=50 >< /font >
< /td >
< /tr >
< tr >
< td width=”50%” >
< font face=”Verdana” size=”2″ >å£ä»¤:< /font >
< /td >
< td width=”50%” >
< font face=”Vedana” size=2 >< input type=password name=password size=20 maxlength= 50 >< /font >
< /td >
< /tr >
< tr >
< td width=”100%” colspan=”2″ align=”center” >
< font face=”Verdana” size=”2″ >< br > < input type=”submit” value=”æ交” name=”B3″ >
< input type=”reset” value=”éå” name=”B4″ >
< /font >
< /td >
< /tr >
< /table >
—————————————————————————————————————-
ç»å½æ件register.aspï¼å½èçç»å½ææ°æ³¨ååï¼å°±æ¾ç¤ºè¿ä¸é¡µãæ们å¯ä»¥å©ç¨å®æ¥è¯¢é®èçç个人信æ¯ã该表å被æ交åï¼è½¬å°sendregister.asp页é¢ã
—————————————————————————————————————-
éªè¯ååéæ件sendregister.aspã该页é¢ä»register.asp ä¸åå¾è¡¨ååçå 容ï¼æ¥è¯¢æ°æ®åºéªè¯è¾å ¥çç¨æ·åæ¯å¦å·²ç»åå¨ï¼å¦æåå¨ï¼åå°èçéæ°å¼åregister.asp页é¢ï¼å¹¶è¢«æ示è¦æ±éæ°éæ©ç¨æ·åï¼å¦æç¨æ·åéè¿ï¼åè¾å ¥çå å®¹å°±è¢«ä¼ é并æå ¥å°æ°æ®åºä¸ã
sendregister.asp
sql_findmember = “select count(*) from loginuser where username = ‘” & username &”‘”
Set RS_findmember = Application(“Conn”).Execute(sql_findmember)
If RS_findmember(0) < > 0 Then
Session(“message”) = “å¢,æ¨è¾å ¥çååå·²ç»åå¨,请éæ°éæ©ä¸ä¸ªåå!”
response.redirect “register.asp”
‘ å¦æRS_findmember(0) è¿åçå¼å¤§äº0,ç¨æ·å°±è¢«å¼å¯¼å注å主页,并被è¦æ±å¡«åä¸ä¸ªæ°çç¨æ·å.
End If
If RS_findmember(0) = 0 Then
sql_insert = “insert into loginuser (username,useremail,password) _
values(‘” & username & “‘,'” & useremail & “‘, ‘” & pwd &”‘) “
Set RS_insert = Application(“Conn”).Execute(sql_insert)
Session(“message”) = “THE ENtrY HAS BEEN INSERTED .. Thank You”
response.redirect “index.asp”
‘ å¦æRS_findmember(0) è¿åçå¼æ¯0,就表示ç¨æ·åå¨æ°æ®åºä¸ä¸åå¨,åå就被åå ¥.è¿æå³ç,èçå¯ä»¥åçç«ç¹å ¶å®çè¯å·äº.
End If
username = replace(request.form(“txt_name”),”‘”,”””)
‘ é²æ¢éæ³è¿å ¥æ°æ®åºå¦.æ¿æ¢å½æ°,å½è®¿é®è é®å ¥äº“‘”åæå·,就稓””代æ¿.
—————————————————————————————————————-
checkuser.asp
‘ èçç»å½éªè¯æ件.
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”
‘ å¦æ已注å,å¼å¯¼å°default.asp页.
End If
If RS_check(0) = 0 Then
Session(“error”) = “对ä¸èµ·,æ¨çå§åæå£ä»¤æ æ,请éæ°è¾å ¥!”
response.redirect “index.asp”
‘ æ£æ¥ç¨æ·æ¯å¦å·²ç»æ³¨å,å¦æè¿åå¼ä¸º0,表æç¨æ·åæå£ä»¤æ æ,å注å页
End If
username = replace(request.form(“username”),”‘”,”””)
useremail = replace(request.form(“password”),”‘”,”””)
‘ æ¿æ¢å½æ°.
—————————————————————————————————————-
éæ©è¯å·é¡µé¢default.aspãç»å½æååï¼è¿å ¥è¯¥é¡µé¢ãå¨è¿å¿ï¼èçå¯ä»¥éæ©çèè¯ç§ç®å表ãå¨æ¬è®¾è®¡ä¸ï¼ç¨äº001html å002html两个ï¼å¨å®é åºç¨ä¸ï¼å¯ä»¥å¢å è¡¨æ ¼ä»¥å¢å èè¯ç§ç®æ°ãdefault.asp è¦æ±è¡¨æ ¼å®è£ ä¸ä¸ªä¸æèåï¼å ¶ä¸å å«ç§ç®çå表ï¼ç¶åæ¥è¯¢æ°æ®åºï¼ä»è¯å·çè¡¨æ ¼ä¸æé两个åã
default.asp
sql_papers = “select *id, topic from paper sort order by topic asc”
SET RS_papers = Application(“Conn”).Execute(sql_papers)
Â
‘ 以ä¸ä»£ç æ¯ä¸ºäºå¨ä¸æèåä¸æ¾ç¤ºç»æ.
select size=1 name=select1 onchange=”msec(document.form1._
select1.options[document.form1.select1.selectedIndex].value);” >
< option value=”0″ >éæ©ç§ç®èè¯
< %Do while not RS_papers.EOF% >
< option value=”< %=RS_papers(“id”)% >” >< %=lcase(RS_papers(“topic”))% >< /OPTION >
< %
RS_papers.MoveNext
Loop
% >
Â
function msec(x)
‘ msecå½æ°å¨Xå¼çåºç¡ä¸è°ç¨ redirect.asp,ææ¥è¯¢å符串: ?xçå¼ä½ä¸ºä¸æèåä¸è¢«éæ©ç项çå¼.
{if (x==0)
{ alert(“欢è¿åå æ¼éªå·äºä¹ç²¾è±èè¯,请éæ©ä¸ä¸ªèè¯ç§ç®!”)
}
else
{ location.href=”redirect.asp?section=” + x
}
}
—————————————————————————————————————-
ç»äºå¯ä»¥åå ç²¾è±èµäºï¼æ们è¿å ¥äºè¯é¢é¡µé¢redirect.aspãå®å°èçéå°å®é çæè¯é¢çASP页é¢ï¼å¦ææ°æ®åºä¸æ²¡ææéæ©çç§ç®çä»»ä½é¢ç®ï¼å°±ä¼æ¾ç¤ºé误信æ¯åè¿åé¾æ¥ãå¦ææ°æ®åºæé¢ï¼åè¿ä¸é¡µå°±è¢«éæ°å¼å¯¼å°exam.asp页é¢ï¼èçå°±å¯ä»¥è¿è¡å¨çº¿èè¯äºã
redirect.asp
id = Request.QueryString (“section”)
‘ å è°ç¨æ¥è¯¢å符串é¨å,å°å¼åå ¥åé idä¸.
Â
SQL = “select tbl_name from paper where id=”&id
Set RS = Application(“Conn”).Execute(SQL)
subject= RS(0)
‘ å使ç¨SQL声æä¼ éè¯å·è¡¨æ ¼ä¸çååtable_name,ç»æåå¨å¨subjectä¸.
Â
MyString = Split(subject,”tbl”,-1,1)
‘ å离åésubject,å°å ¶åå¨å¨MyStringä¸.注æ,æ¤å¤ç¨Split å½æ°å¨å®¢æ·ç«¯æ¾ç¤ºæµéªåæ¯ä¸ºäºæ´å¥½å°æ¾ç¤º.
IF RS_subject.BOF AND RS_subject.EOF Then
Response.Write Online ” & MyString(1) & é¢åºæ£å¨å建ä¸,请ç¨ååæ¥! < a href=default.asp >è¿å< /a >”
Else
Response.Redirect (“exam.asp?section=”&id )
End If
—————————————————————————————————————-
exam.aspæ¯æ åè¯å·é¡µé¢ï¼ä»£ç å ±å两大é¨åï¼è®¡æ¶å¨å½æ°åæ¬é¡µæ¥è¯¢éåè¯é¢ãæ¾ç¤ºè¯é¢ï¼å¹¶ä»¥åéæé®æ¹å¼ä¾èççé¢ãä»æ°æ®åºä¸éæ©çè¯é¢ï¼æ¬è®¾è®¡éç¨äºéæºå½æ°ï¼è¿ä¹æ¯ç®åé¢åºçæè¯å·çéç¨æ¹å¼ãé¢ç®ç个æ°è®¾å®ä¸º10个ï¼èçæ¯æ¬¡åç5个ãæ¶é´éå®ä¸º20ç§ï¼å©ä½çæ¶é´å¨å±å¹åºé¨çç¶æçªå£ä¸æ¾ç¤ºãææçè¯é¢é½ä¸èµ·æ¾ç¤ºåºæ¥ï¼ç¶åå¼å§è®¡æ¶ãæ¶é´åè¯é¢ä¸ªæ°é½å¯ä»¥æ¹åã
exam.asp
‘ 以ä¸æ¯è®¡æ¶å¨å½æ°.
< script language=”javascript” >
var ck=0;
var tf=0;
var timeUp=0;
var timeLeft=0;
var tcount=0;
TimerFunc();
function TimerFunc() {
tf=window.setTimeout(“TimerFunc();”,1000);
tcount++;
timeLeft=20 – tcount;
window.status = “å»å»,åå¾ç好快å¦,è¿å©” +timeLeft + “秓;
}
< /script >
Â
id = Request.QueryString (“section”)
session(“id”) = id
‘ æ¥è¯¢å符串åå¨å¨ä¸ä¸ª session(“id”)ä¸,æ顺åºå¯å¨æ¥è¯¢.
sql_tblname = “select tbl_name from paper where id=”&id
‘ SQL声æçç®çæ¯ä»è¯å·è¡¨æ ¼ä¸æ¾å°è¡¨æ ¼å,å¦ææ¾å°äºè¡¨æ ¼åå°±å¼å§åæå®è¡¨æ ¼çæ¥è¯¢.
Set RS_tblname = Application(“Conn”).Execute(sql_tblname)
subject= RS_tblname(0)
MyString = Split(subject,”tbl”,-1,1)
‘ splitå½æ°ä»ç»æä¸å»ætbl, æ¬è®¾è®¡ä½¿ç¨äºè¡¨æ ¼ååå tblåç¼çå½åæ¯ä¾.
Â
Â
sql_details = “select a.id, a.question, a.choice1, a.choice2,a.choice3, ” &_
” a.choice4 from ” & subject & ” a where a.id=”&MyArray(Counter)
‘ ç¨éæºå½æ°çæä»1-10ä¹é´çä»»ææ°å, MyArray(Counter)æ¯å·²ç»çæçéæºæ°å,ç¨æ¥ä»æå®çç§ç®è¡¨æ ¼ä¸éåid.id,question,choice1,choice2,choice3,choice4é½æ¯ç§ç®è¡¨æ ¼åå.
—————————————————————————————————————-
èè¯æ绩åresult.aspï¼æ¾ç¤ºç»æï¼å¹¶å°è¿äºç»æå¢å å°æ°æ®åºç»èè¡¨æ ¼ä¸ï¼ä»¥ä¾æ¥è¯¢ï¼
result.asp
for each item in Request.Form
sql_check = “select Count(*) from “&subject&” where answer ='” & Request.Form(item) & “‘”
Set RS_check = Application(“Conn”).Execute(sql_check)
if RS_check(0) > 0 then
result = result + 1
end if
next
‘ åéresultåå¨ç»æ.
ãã
percent = round(( 100 * result )/count)
‘ ç¾åæ°æ¢ç®.
sql_id = “select id from loginuser where username='” & Session(“username”) &”‘”
Set RS_id = Application(“Conn”).Execute(sql_id)
id= RS_id(0)
SQL_insert = “insert into details (ref_id,subject,score) values(‘” & id & “‘,'” _
& subject & “‘, ‘” & percent &”‘) “
‘ æ§è¡æ¥è¯¢,å°ç»æåå¨å¨æ°æ®åºä¸.
—————————————————————————————————————-
view.asp æ件æ¥è¯¢æ¯å¦å¨æ¤åå è¿èè¯ã
view.asp
sql_id= “select id from loginuser where username='” & Session(“username”) &”‘”
Set RS_id = Application(“Conn”).Execute(sql_id)
id= RS_id(0)
sql_count = “Select count(*) from details where ref_id = ‘” & id &”‘”
Set RS_count = Application(“Conn”).Execute(sql_count)
If RS_count(0) < > 0 Then
response.redirect “viewrecord.asp”
‘ å¦æå·²åå è¿èè¯,å转å°viewrecord.asp页é¢.
End If
If RS_count(0) = 0 Then
Session(“noview”) = “å¢,æ¨è¿æ²¡å¨æ们è¿å¿èè¿è¯å¢!”
response.redirect “default.asp”
End If
—————————————————————————————————————-
viewrecord.aspæä»¶ä»¥è¡¨æ ¼å½¢å¼æ¾ç¤ºæ³¨åç¨æ·çä¿¡æ¯ã
viewrecord.asp
sql_details = “Select *subject, score from details where ref_id = ‘” & id &”‘”
Set RS_details = Application(“Conn”).Execute(sql_details)
—————————————————————————————————————-
Â
[1]