ASP在线问答的实例代码_ASP教程

教程Tag：暂无Tag,欢迎添加,赚取U币!

缂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簼閹癸綁鏌ｉ鐐搭棞闂囧鏌ㄥ┑鍡欏⒈闁搞倕顦扮换娑橆啅椤旇崵鍑归梺鍝勬噺缁诲牓寮诲☉姘勃闁绘劦鍓涘▓銈夋⒑閸涘﹥鈷掗柡浣告憸濡叉劙骞樼€涙ê顎撻梺鍦帛鐢﹥绔熼弴銏♀拻濞达絼璀﹂弨鏉棵瑰⿰搴″⒋妞ゃ垺顨婅矾闁绘稓顧€S闂傚倸鍊搁崐鎼佸磹瀹勬噴褰掑炊瑜忛弳锕傛煟閵忊懚鍦玻濡ゅ懏鐓欓柟娈垮枛椤ｅジ鏌涚€ｅ墎绡€闁哄本娲樺鍕醇濠靛棗顥欐繝鐢靛仦閸ㄦ儼褰滈梺琛″亾濞寸姴顑嗛崐鐢告煥濠靛棗鏆欏┑锛勫厴閺屾稓鈧綆鍋呭畷宀€鈧娲樼敮锟犲箖濞嗘挸钃熼柕澶堝劜閺嗩亪姊婚崒娆戭槮闁圭⒈鍋勭叅闁靛ň鏅涚壕濠氭煟閹邦喖鍔嬮柛濠傜仛閵囧嫰骞掗崱妞惧闂備礁鐤囬～澶愬垂閸ф绠栨繛鍡樻尭閻顭块懜鐬垿鏁嶆笟鈧缁樻媴鐟欏嫬浠╅梺鍛婃煥闁帮絽鐣锋导鏉戝唨鐟滄粓宕甸弴鐐╂斀闁绘ê纾。鏌ユ煛閸涱喗鍊愰柡灞诲姂閹倝宕掑☉姗嗕紦婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柟闂寸绾惧鏌ｉ幇顒佹儓闁搞劌鍊块幃瑙勬姜閹峰矈鍔呭┑鐐插悑閻楃娀骞冨畡鎵虫瀻闊洦鎼╂导鈧梻浣虹帛缁诲倿鎮ユ總绋胯摕婵炴垯鍨归悞娲煕閹板吀绨存俊鎻掔墦濮婅櫣绱掑Ο璇查瀺闂佹寧娲忛崹钘夘嚕婵犳艾鐏抽柟棰佺閹垿鏌熼懖鈺勊夐柍褜鍓欑壕顓㈩敊閹达附鈷掑ù锝囨嚀閳绘洟鏌￠埀顒佹綇閳哄倹娈伴梺璺ㄥ枔婵挳鎷戦悢鍏肩厪濠电偟鍋撳▍鍡涙煕鐎ｎ亝顥㈤柡灞剧〒娴狅箓宕滆濡插牆顪冮妶鍛寸崪闁瑰嚖鎷� 缂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亝鎹ｉ柣顓炴閵嗘帒顫濋敐鍛闂佽姤蓱缁诲牆顫忓ú顏嶆晢闁逞屽墰缁梻鈧潧鎽滈悳缁樹繆閵堝懏鍣洪柣鎾寸懇濮婃椽顢橀妸褏鏆犳繝鈷€鍥╃暫闁哄被鍊濆鍫曞箰鎼粹€叉樊闂備礁鎼張顒勬儎椤栨稐绻嗛柣鎴犵摂閺佸﹪鏌ｉ幘鍐茬槰婵炶壈宕电槐鎾诲磼濞嗘帩鍞归梺绋款儐閹告悂鈥﹂崸妤佸殝闂傚牊绋戦～宥夋⒑缂佹ɑ灏柛鐔告尦瀵寮撮悢椋庣獮闂佸壊鍋呯换鍌炩€栨径鎰拺缂備焦岣跨粻銉ッ瑰⿰搴濋偗鐎殿喖顭烽弫鎰板川椤忓懏鏉搁梻浣告贡閸嬫挸岣垮▎鎿冩晜闁跨噦鎷� 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾剧懓顪冪€ｎ亜顒㈡い鎰矙閺屻劑鎮㈤崫鍕戙垻鐥幆褜鐓奸柡灞剧洴瀵挳濡搁妷褉鍋撻鍕厱闁靛绲芥俊鐣岀磽瀹ュ懏鍠橀柡灞界Ч瀹曨偊宕熼锝嗩啀婵＄偑鍊х€靛矂宕规潏鈺傚床婵犻潧顑呴～鍛存煥濠靛棙顥犻柕鍡樺姍濮婃椽宕崟顓炩拡闂佸憡鎸鹃崰搴ㄦ偩瀹勬嫈鏃堝焵椤掑嫨鍋戝ù鍏兼綑闁卞洭鏌ｉ弬鎸庢儓妤犵偞鍔欏缁樻媴鐟欏嫬浠╅梺绋垮瘨閸ㄨ泛鐣峰┑鍡╁悑濠㈣泛顑呴崜顓㈡⒑绾懏褰ч梻鍕閸╂盯骞掗幋顓犲數闁荤姾娅ｇ亸銊╁礉閻旂厧鏋侀柛顐犲劜閳锋垿鏌涘┑鍡楊伂妞ゎ偓绠撻弻娑欑節閸愵亜鈪圭€光偓閿濆牆鍔电紒鐘崇☉閳藉螣濠х偓娅婇柡灞诲姂瀵噣宕掑⿰鍐偧婵＄偑鍊戦崕鑼矙閹捐埖顫曢柟鎹愵嚙绾惧吋绻涢崱妯虹仴濠碘€茬矙濮婃椽宕妷銉ょ捕濡炪値鍘鹃崗姗€鎮伴璺ㄧ杸婵炴垶鐟﹀▍銏ゆ⒑鐠恒劌娅愰柟鍑ゆ嫹闂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣捣閻棗銆掑锝呬壕濡ょ姷鍋為悧鐘汇€侀弴銏℃櫇闁逞屽墴閹潡顢氶埀顒勫蓟閿濆憘鏃堝焵椤掑嫭鍋嬪┑鐘叉搐閻鐓崶銊р姇闁绘挻鐟х槐鎾存媴闂堟稓浠奸梺鍝勵儐缁嬫帗绌辨繝鍥ㄥ€烽柟娈垮枤閻撴捇姊洪崫鍕槵闁逞屽墯閸撴岸宕ョ€ｎ喖绠圭紒顔煎帨閸嬫捇鎳犻浣规闂傚倸鍊风粈渚€骞夐敓鐘偓鍐幢濞嗗繑鐎抽悗骞垮劚濞诧箑鐣烽崣澶岀闁瑰瓨鐟ラ悘鈺傤殽閻愵亜鐏ǎ鍥э躬椤㈡稑鈹戦幇顒侇唲闂傚倸鍊搁ˇ顖滅矓閹绢喖鐓橀柟杈惧瘜閺佸鏌涢埄鍐噮閽冮亶姊绘担鍛婂暈婵﹤缍婇妴鍐╃節閸パ勬К闂侀€炲苯澧柕鍥у楠炴帡骞嬪┑鍥╀壕婵犵數鍋涢崥瀣礉濞嗘挸钃熼柣鏃傗拡閺佸﹪鏌ゅù瀣珔闁绘挾鍠栭幃妤冩喆閸曨剛顦ㄥ┑鐐跺皺閸犳牕顕ｆ繝姘耿婵°倕锕ら幃鎴︽⒑閸涘﹣绶遍柛銊﹀▕瀹曘垽顢楅崟顑芥嫽婵炶揪缍€婵倗娑甸崼鏇熺厱闁挎繂绻掗悾鍨殽閻愯尙绠婚柡浣规崌閺佹捇鏁撻敓锟�,闂傚倸鍊搁崐鎼佸磹閹间礁纾圭€瑰嫭鍣磋ぐ鎺戠倞妞ゆ帊绀侀崜顓烆渻閵堝棗濮х紒鐘冲灩缁牏鈧綆鍋佹禍婊堟煙閹佃櫕娅呴柣蹇婃櫇閹喖顫滈埀顒€顫忕紒妯诲缂佹稑顑呭▓顓炩攽椤旀枻鍏紒鐘虫崌閺佹劙鎮欓弶鎴犵獮闁诲函缍嗛崜娑㈩敊閺囩喓绡€闁汇垽娼у瓭闂佺ǹ顑呭Λ婵嗙暦閻㈢ǹ鍗抽柕蹇ョ磿閸樺崬顪冮妶鍡楀Ё缂佹彃澧界划鍫ュ焵椤掑倻纾藉ù锝嗗絻娴滈箖姊洪崨濠傚闁哄倸鍊圭粋宥呪堪閸喓鍘搁梺绋挎湰濮樸劍绂掗姀銈嗙厵妞ゆ棁妫勯悘锕傛煏閸パ冾伂缂佺姵鐩鎾倷鐎电硶鍋撻崜褏纾藉ù锝堟鐢盯鏌ｉ埡濠傜仸闁绘侗鍠氶埀顒婄秵閸犳宕愰悜鑺ョ厸濠㈣泛顑呴悘鈺傜箾閸稑鈧繂顫忕紒妯诲闁告盯娼х紞濠囥€侀弽顓炲耿婵炴垶岣块澶愭⒑閹肩偛鍔€閻忕偛澧界粙渚€姊绘担鍛婂暈缂佽鍊婚埀顒佺殰閸パ冨殤闁瑰吋鐣崝宥夋偂濞嗘劑浜滈柡宓嫷妫為柣搴㈠嚬閸犳绮嬪澶樻晜闁割偆鍟块幏缁樼箾鏉堝墽鍒伴柟璇х節瀹曨垶鎮欓悜妯煎幗闂佺粯姊瑰ḿ娆撳礉閵堝鐓欐鐐茬仢閻忊晠鎽堕敐鍛偓鎺戭潩閻撳海浠╁┑鐐茬墑閸斿秶鎹㈠┑瀣仺闂傚牊鍒€閿濆洨妫柡澶庢硶鏁堥悗娈垮枟閻擄繝鐛弽銊﹀闁革富鍘煎鎶芥⒒娴ｈ櫣甯涙繛鍙夌墵瀹曟劙宕烽娑樹壕婵ḿ鍋撶€氾拷!

推荐：ASP利用XML打包指定文件夹并上传到WEB目录中，自行解包
'======================== '文件１ 'Pack.asp '更改 Cpathname 这一变量 '将在当前目录生成一个DATA.XML文件 '将DATA.XML及文件２（install.asp)上传至ＷＥＢ根目录 '运行install.asp解包 '手动删除以上两个文件 '======================== % Option Explic

ASP在线问答的实例代码首先，是HTML文件，为Test.asp，代码如下：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<% 
if session("username")="" then 
Response.Write("<script>alert('请登陆后在进行操作！');window.location='login.asp?reURL=Test.asp';</script>") 
Response.End() 
end if 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title>情景问答</title> 
<style type="text/css"> 
<!-- 
body {}{ 
font-size: 12px; 
color: #0066FF; 
} 
input {}{ 
border: 1px solid #FFFFFF; 
background-color: #EEEEEE; 
left: 1px; 
top: 1px; 
right: 1px; 
bottom: 1px; 
clip: rect(10px,10px,10px,10px); 
margin: 1px; 
padding: 1px; 
} 
 
--> 
</style> 
</head> 
<script language="javascript"> 
<!-- 
function chkForm() 
{ 
var e = document.frm; 
var it,flag,i; 
flag = false; 
 
 
for(i = 1;i<=10;i++) 
{ 
var it = eval("e.Question"+i); 
var itLen = eval("e.Question"+i+".length"); 
 
for(var j = 0;j<itLen;j++) 
{ 
var itChk = eval("e.Question"+i+"["+j+"].checked"); 
 
if(itChk) 
{ 
flag = true; 
break; 
} 
 
if(!itChk && j == itLen-1) 
{ 
flag = false; 
break; 
} 
} 
 
if(!flag) 
{ 
alert("请选择第"+i+"题答案"); 
return false; 
} 
 
} 
if(!flag) 
{ 
alert("请选择第"+i+"题答案"); 
eval("e.Question"+i+".focus()"); 
return false; 
} 
return true; 
} 
--> 
</script> 
<body> 
<div><strong>情景问答</strong></div> 
<form name="frm" action="Test_do.asp" method="post" onsubmit="return(chkForm());"> 
<p><br /> 
1. 遗忘黯淡中的女主角叫什么名字？<br /> 
<label> 
<input type="radio" name="Question1" value="A" /> 
A.</label> 
Lan<br /> 
<label> 
<input type="radio" name="Question1" value="B" /> 
B.</label> 
Jenny<br /> <label> 
<input type="radio" name="Question1" value="C" /> 
C.</label> Lucy</p> 
<p>2. 音乐往事中酒吧的名字是什么？<br /> 
<label> 
<input type="radio" name="Question2" value="A" /> 
A.</label> 
遗忘<br /> 
<label> 
<input type="radio" name="Question2" value="B" /> 
B.</label> 
NV<br /> 
<label> 
<input type="radio" name="Question2" value="C" /> 
C.</label> 
如影随形</p> 
<p>3.遗忘黯淡中的照片墙上有什么照片？<br /> 
<label> 
<input type="radio" name="Question3" value="A" /> 
A.</label> 
从前的女主人公<br /> 
<label> 
<input type="radio" name="Question3" value="B" /> 
B.</label> 
海边的风景<br /> 
<label> 
<input type="radio" name="Question3" value="C" /> 
C.</label> 
酒吧外景</p> 
<p>4. 音乐往事中女主人公喝的酒叫什么名字？<br /> 
<label> 
<input type="radio" name="Question4" value="A" /> 
A.</label> 
红粉佳人<br /> 
<label> 
<input type="radio" name="Question4" value="B" /> 
B.</label> 
七色彩虹<br /> 
<label> 
<input type="radio" name="Question4" value="C" /> 
C.</label> 
蔚蓝海岸</p> 
<p>5.遗忘黯淡中New Vision杂志的封面人物是谁？<br /> 
<label> 
<input type="radio" name="Question5" value="A" /> 
A.</label> 玄斌<br /> 
<label> 
<input type="radio" name="Question5" value="B" /> 
B.</label> Rain<br /> 
<label> 
<input type="radio" name="Question5" value="C" /> 
C.</label> 张东健</p> 
<p>6. 音乐往事中的唱片名字是什么？<br /> 
<label> 
<input type="radio" name="Question6" value="A" /> 
A.</label> 
BEWITCHED<br /> 
<label> 
<input type="radio" name="Question6" value="B" /> 
B.</label> 
WONDERFUL<br /> 
<label> 
<input type="radio" name="Question6" value="C" /> 
C.</label> 
BEAUTIFUL</p> 
<p>7. 音乐往事中的酒吧墙壁上写着什么？<br /> 
<label> 
<input type="radio" name="Question7" value="A" /> 
A.</label> 
Love is beautiful<br /> 
<label><input type="radio" name="Question7" value="B" /> 
B.</label> 
Truth is beautiful<br /> 
<label><input type="radio" name="Question7" value="C" /> 
C.</label> 
Smile is beautiful</p> 
<p>8. 音乐往事中的吧台上摆放着什么？<br /> 
<label><input type="radio" name="Question8" value="A" /> 
A.</label> 
留声机<br /> 
<label><input type="radio" name="Question8" value="B" /> 
B.</label> 
收音机<br /> 
<label><input type="radio" name="Question8" value="C" /> 
C.</label> 
黑胶唱片</p> 
<p>9. 音乐往事中男主人公的喜好是？<br /> 
<label><input type="radio" name="Question9" value="A" /> 
A.</label> 
电影<br /> 
<label><input type="radio" name="Question9" value="B" /> 
B.</label> 
摄影<br /> 
<label><input type="radio" name="Question9" value="C" /> 
C.</label> 
烟草和音乐</p> 
<p>10.凝固精彩中的主人公爱好什么？<br /> 
<label><input type="radio" name="Question10" value="A" /> 
A.</label> 
旅游<br /> 
<label><input type="radio" name="Question10" value="B" /> 
B.</label> 
摄影<br /> 
<label><input type="radio" name="Question10" value="C" /> 
C.</label> 
上网</p> 
<p><br /> 
<input type="submit" name="Submit" value="提交" /> 
<br /> 
</p> 
</form> 
</body> 
</html>

下面是后台代码Test_do.asp，代码如下：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!-- #include file="conn.asp" --> 
<!-- #include file="function.asp" --> 
<% 
Response.CacheControl = "no-cache"  
Response.Expires = -1 
Response.ExpiresAbsolute=now()-1 
 
if session("username")="" then 
Response.Write("<script>alert('请登陆后在进行操作！');window.location='login.asp?reURL=Nv_Scene_Test.asp';</script>") 
Response.End() 
end if 
 
'定义选项的最高分即总分 
Const TOTALSCORE = 100 
Const ITEMS = 10 
'定义选项分数 
Dim Result(9) 
'第一题得分标准 
Result(0) = "A|10|_|B|0|_|C|0" 
 
'第二题得分标准 
Result(1) = "A|0|_|B|10|_|C|0" 
 
'第三题得分标准 
Result(2) = "A|10|_|B|0|_|C|0" 
 
'第四题得分标准 
Result(3) = "A|0|_|B|0|_|C|10" 
 
'第五题得分标准 
Result(4) = "A|0|_|B|0|_|C|10" 
 
'第六题得分标准 
Result(5) = "A|10|_|B|0|_|C|0" 
 
'第七题得分标准 
Result(6) = "A|0|_|B|10|_|C|0" 
 
'第八题得分标准 
Result(7) = "A|10|_|B|0|_|C|0" 
 
'第九题得分标准 
Result(8) = "A|0|_|B|0|_|C|10" 
 
'第十题得分标准 
Result(9) = "A|0|_|B|10|_|C|0" 
 
''第十一题得分标准 
'Result(10) = "A|0|_|B|0|_|C|10" 
' 
''第十二题得分标准 
'Result(11) = "A|0|_|B|10|_|C|0" 
' 
''第十三题得分标准 
'Result(12) = "A|10|_|B|0|_|C|0" 
' 
''第十四题得分标准 
'Result(13) = "A|0|_|B|10|_|C|0" 
' 
''第十五题得分标准 
'Result(14) = "A|0|_|B|0|_|C|10" 
 
 
If UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then 
Call Chk_Post() 
Dim i,total,selItem,summary,strDes,strOut  
total = 0 
 
 
For i = 0 To (ITEMS-1) 
selVal = Trim(Request.Form("Question"&i+1)) 
arrItem = Split(Result(i),"|_|") 
 
For j = 0 To Ubound(arrItem) 
 
If selVal = Split(arrItem(j),"|")(0) Then 
 
totaltotal = total + CInt(Split(arrItem(j),"|")(1)) 
selItemselItem = selItem &"<li>Question"&i+1&":"&selVal&"</li>"&vbCrLf 
End If 
Next 
Next 
summary = FormatPercent(total/TOTALSCORE) 
 
If (total/TOTALSCORE)>=0.6 Then 
strDes = "正确率 "&summary&"<br>您已经顺利通过吧" 
Else 
strDes = "正确率 "&summary&"<br>很遗憾，您正确率还没有达到60%。请再来试试吧！<br><a href=Test.asp'>回在线问答页>></a>" 
End If 
 
strOut = "You have Selected these items below:<br>"&selItem&"<br>Total:"&total&"<br>您的正确率为："&summary 
strOutstrOut = strOut &"<br>"&strDes 
 
str_sql = "SELECT Count(1) FROM UserInfo WHERE MemberId='"&Session("Id")&"'" 
rowCount = DataConn.execute(str_sql)(0) 
 
If rowCount > 0 Then'如果存在就更新个人信息 
str_sql = "UPDATE UserInfo " 
str_sqlstr_sql = str_sql &" SET Result = '"&FormatNumber(total/TOTALSCORE,2)&"'" 
str_sqlstr_sql = str_sql &" ,ip = '"&Get_UserIp()&"'" 
str_sqlstr_sql = str_sql &" ,AddTime = getdate()" 
str_sqlstr_sql = str_sql &" WHERE MemberID= '"&Session("Id")&"'" 
Else 
str_sql = "INSERT INTO UserInfo( Result,MemberId,MemberName,ip) " 
str_sqlstr_sql = str_sql &" VALUES('"& FormatNumber(total/TOTALSCORE,2)&"','"&Session("Id")&"','"&Session("Username")&"','"&Get_UserIp()&"')" 
End If 
DataConn.execute(str_sql) 
End If 
 
 
%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title>在线问答测试结果</title> 
<style type="text/css"> 
<!-- 
body { 
font-size: 12px; 
color: #0066FF; 
} 
input { 
border: 1px solid #FFFFFF; 
background-color: #EEEEEE; 
left: 1px; 
top: 1px; 
right: 1px; 
bottom: 1px; 
clip: rect(10px,10px,10px,10px); 
margin: 1px; 
padding: 1px; 
} 
 
--> 
</style> 
</head> 
 
<body> 
<%Response.Write(strOut)%> 
</body> 
</html>

分享：ASP Error对象的技巧
在VBScript中，有一个On Error Resume Next语句，它使脚本解释器忽略运行期错误并继续脚本代码的执行。接着该脚本可以检查Err.Number属性的值，判别是否出现了错误。如果出现错误，返回一个非零值。在ASP 3.0中，也可以使用On Error Goto 0“转回到”缺省的

ASP视频教程

轻轻松松学编程！FIF小组ASP互动视频教程

ASP操作ACCESS数据库视频教程

来源：模板无忧/所属分类：ASP教程/更新时间：2012-06-11

[收藏][报错][返回列表]

ASP在线问答的实例代码_ASP教程

ASP视频教程

ASP教程Rss订阅编程教程搜索

ASP教程推荐

猜你也喜欢看这些