ASP网站制作之一个投票程序
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；1.vote.asp<%@LANGUAGE="VBSCRIPT"%>
<%OPTIONEXPLICIT%>
<%Response.Buffer=True%>
<!--#INCLUDEFILE="adovbs.inc"-->
<%
***Remembertocreatethosevariablesbeforetryingtousethem.
DimobjConn
DimobjRec3
DimstrConnect
DimvarTopic,varTopicID,varSelectionNum,varSelected
Dimi,varTotal,varThis,varThisTitle,varAlreadyVote
strConnect="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.MapPath("vote.mdb")&";DefaultDir="&Server.MapPath(".")&";DriverId=25;FILE=MSAccess;MaxBufferSize=512;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;;UserId=admin;"
SetobjConn=Server.CreateObject("ADODB.Connection")***CreateanADOdatabaseconnectionobject.
SetobjRec3=Server.CreateObject("ADODB.Recordset")**CreateanADORecordSetobject.
objConn.OpenstrConnect***Opentheconnectiontothedatabase
objRec3.Open"vote",objConn,adOpenForwardOnly,adLockPessimistic,adUseServer***Opentherecordset
varTopic=Request.Form("topic")
varTopicID=Request.Form("topicID")
ifvarTopicID=""then
varTopicID=Request.QueryString("topicID")
endif
varSelectionNum=Request.Form("selectionNum")
varSelected=Request.Form("selected")
objRec3.Filter=0
objRec3.Filter="topicID="&varTopicIDonlynumbercanbefilter?
IfNOTobjRec3.EOFthen
ifRequest.Form("selected")=""then
else
varAlreadyVote="alreadyVote"&"_"&varTopicID
ifSession(varAlreadyVote)"true"then
objRec3("selection"&varSelected&"_count")=objRec3("selection"&varSelected&"_count")+1
objRec3.Update
Session(varAlreadyVote)="true"
endif
endif
varTotal=0
fori=0toobjRec3("selectionNum")-1
varTotal=varTotal+objRec3("selection"&i&"_count")
next
%>
<palign=left><%=varTopic%></p>
<palign=center>
<tablewidth=480border=0cellspacing=0cellpadding=0bgcolor=#000000>
<captionalign=left><fontsize=2>共有<fontcolor=red><%=varTotal%></font>人列入</font></caption>
<tr><td>
<tablewidth=480border=0cellspacing=1cellpadding=3>
<trbgcolor=#dcdcdcalign=centervalign=center>
<thwidth=120><fontsize=2>选项</font></td>
<thwidth=300><fontsize=2>比例</font></td>
<thwidth=60><fontsize=2>人数</font></td>
</tr>
<%
fori=0toobjRec3("selectionNum")-1
varThisTitle=objRec3("selection"&i&"_title")
varThis=objRec3("selection"&i&"_count")
%>
<trbgcolor=#ffffffvalign=center>
<tdwidth=120align=center><fontsize=2color=#ff0000><%=varThisTitle%></font></td>
<tdwidth=300align=left><imgsrc="http://edu.cnzz.cn/NewsInfo/color.gif"width=<%=varThis*100/varTotal%>height=12border=0><fontsize=2color=#ff0000>
<%=left(varThis*100/varTotal,5)%>%
</font>
</td>
<tdwidth=60align=center><fontsize=2color=#ff0000><%=varThis%></font></td>
</tr>
<%
next
%>
</table>
</td></tr>
</table></p>
<%
elsenothistopicyet
objRec3.AddNew
objRec3("topicID")=varTopicID
objRec3("topic")=varTopic
objRec3("selectionNum")=varSelectionNum
fori=0tovarSelectionNum
objRec3("selection"&i&"_title")=Request.Form("selection"&i&"_title")
next
objRec3.Update
response.write"added"
EndIf
objRec3.Close
objConn.Close
SetobjRec3=Nothing
SetobjConn=Nothing
%>
2.vote.htm
<HTML>
<HEAD>
<scriptlanguage="JavaScript">
functionnewswindow(url)
{ContentWindow=window.open(url,"_blank","toolbar=no,width=640,height=400;,directories=no,status=yes,scrollbars=yes,resize=yes,menubar=yes")
}
</script>
</HEAD>
<BODY>
您以为"你说我说"栏目
<formmethod="post"action="vote.asp"target="new">
<tr>
<tdwidth=80>
<inputtype="radio"name="selected"value="0"style="background-color:rgb(255,205,96)">对照凌乱<br>
<inputtype="radio"name="selected"value="1"style="background-color:rgb(255,205,96)">因陋就简<br>
<inputtype="radio"name="selected"value="2"style="background-color:rgb(255,205,96)">次序井然
</td>
<tdwidth=55>
<inputtype=hiddenname=topicIDvalue=1>
<inputtype=hiddenname=topicvalue=您以为你说我说栏目>
<inputtype=hiddenname=selectionNumvalue=3>
<inputtype=hiddenname=selection0_titlevalue=对照凌乱>
<inputtype=hiddenname=selection1_titlevalue=因陋就简>
<inputtype=hiddenname=selection2_titlevalue=次序井然>
<inputtype="button"value="检察"style="background-color:rgb(255,205,96)"onClick=newswindow("vote.asp?topicID=1")target=new>
<inputtype=submitvalue="提交"style="background-color:rgb(255,205,96)">
</td>
</tr>
</form>
</BODY>
</HTML>
3.vote.mdb
aAccessdatabasefile,thereisatablenamed"vote"
fields:
topicIDtopicselectionNumselection0_titleselection0_count...
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 掌握asp的特性而且一定要知道为什么。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。
页:
[1]