admin 管理员组

文章数量: 1087139


2024年3月6日发(作者：计算机进制的转换)

<%@ 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变量的锁定：

%>

魅力城市网上投票

伦敦得票数：<% = London1 %>

巴黎得票数：<% = Paris1 %>

旧金山得票数：<% = Sanfran1 %>

请用鼠标点击一下您所喜欢的城市图片，

该市就可获得您宝贵的一票！


本文标签： 城市 文件 票数 得票数

版权声明：本文标题：asp网上投票系统源代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1709686065a543599.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。