asp网上投票系统源代码
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
<%@ Language=VBScript %>
<%
'定义用于从给定文件读取票数的函数:
Function ReadCount(CFile)
Dim objFSO,objTS
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTs = objFSO.OpenTextFile(Server.MapPath(CFile),1,True) If Not objTS.AtEndOfStream Then
ReadCount = CLng(objTS.ReadLine)
Else
ReadCount = 0
End If
objTS.Close
Set objFSO=Nothing
End Function
'定义用于将累计票数写入指定文件的Sub过程:
Sub WriteCount(CFile,Count)
Dim objFSO,objTS
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenT extFile(Server.MapPath(CFile),2,True) objTS.WriteLine(Count)
objTS.Close
Set objFSO=Nothing
End Sub
%>
<%
Dim Vote,London1,Paris1,Sanfran1
'锁定Application变量:
Application.Lock
'获取浏览者所投票的城市:
Vote = Request("Vote")
'从相应文件分别读取个城市已获得的票数:
London1 = ReadCount("London.txt")
Paris1 = ReadCount("Paris.txt")
Sanfran1 = ReadCount("Sanfran.txt")
'判断当前得票的城市,并为其票数加1后写入对应文件:
If Vote="London" Then
London1=London1+1
WriteCount "London.txt",London1
ElseIf Vote="Paris" Then
Paris1=Paris1+1
WriteCount "Paris.txt",Paris1
ElseIf Vote="Sanfran" Then
Sanfran1=Sanfran1+1
WriteCount "Sanfran.txt",Sanfran1
End If
'解除对Application变量的锁定:
Application.UnLock
%>
请用鼠标点击一下您所喜欢的城市图片,
该市就可获得您宝贵的一票!