2024年6月20日发(作者：)
<%@ Language=VBScript %>
<%
'定义用于从给定文件读取票数的函数：
Function ReadCount(CFile)
Dim objFSO,objTS
Set objFSO = Object("stemObject")
Set objTs = xtFile(h(CFile),1,True)
If Not fStream Then
ReadCount = CLng(ne)
Else
ReadCount = 0
End If
Set objFSO=Nothing
End Function
'定义用于将累计票数写入指定文件的Sub过程：
Sub WriteCount(CFile,Count)
Dim objFSO,objTS
Set objFSO = Object("stemObject")
Set objTS = xtFile(h(CFile),2,True)
ine(Count)
Set objFSO=Nothing
End Sub
%>
<%
Dim Vote,London1,Paris1,Sanfran1
'锁定Application变量：
'获取浏览者所投票的城市：
Vote = Request("Vote")
'从相应文件分别读取个城市已获得的票数：
London1 = ReadCount("")
Paris1 = ReadCount("")
Sanfran1 = ReadCount("")
'判断当前得票的城市，并为其票数加1后写入对应文件：
If Vote="London" Then
London1=London1+1
WriteCount "",London1
ElseIf Vote="Paris" Then
Paris1=Paris1+1
WriteCount "",Paris1
ElseIf Vote="Sanfran" Then
Sanfran1=Sanfran1+1
WriteCount "",Sanfran1
End If
'解除对Application变量的锁定：
%>
请用鼠标点击一下您所喜欢的城市图片，
该市就可获得您宝贵的一票！
发布者：admin，转转请注明出处：http://www.yc00.com/news/1718833083a2752942.html
评论列表（0条）