您的位置：首页 → 精文荟萃 → 软件资讯 → 如何使用ASP在自己的网站建立投票机制（二）

如何使用ASP在自己的网站建立投票机制（二）

时间：2004/10/7 19:04:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



　　　　　　　　　　　　4、文件default.asp
<%
ID = Request("ID")
If ID = "" Then
ID = 30
End If
Title = "Polls (Create your own poll)"
%>

Another joint product from Tipped Cow Development and Adrenalin Labs

Select A Poll <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open Application("ASPPollDSN") sql = "select * from Poll" Set rs = conn.Execute(sql) Do While Not rs.EOF %> "><%=rs("PollName")%> <% rs.MoveNext Loop %> Vote In Poll: View Results: Create your own poll Back

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open Application("ASPPollDSN") sql = "select * from Poll where ID = " & ID Set rs = conn.Execute(sql) If rs.EOF = False Then %> <% For I=1 To 5 choice = rs("Choice" & I) If choice <> "" Then %> <% End If Next %> <% If rs("GetName") = "1" Then %> <% End If %> <%=rs("PollQuestion")%> <%=choice%> Your Name: <% Else Response.Write "Invalid Poll Id Request!" End If %>

5、文件global.asa


6、文件pool.inc
<%
DBPath = Server.MapPath("/poll/Events.mdb")
ID = 28
If Request.Cookies("PollID") = CStr(ID) Then
ShowDisplay
Else
ShowVote
End If

Function ConvertToPercent(total, sz)
If sz = 0 Then
ConvertToPercent = "0%"
Else
ConvertToPercent = FormatPercent(sz/total, 2)
End If
End Function

Sub ShowVote

%>

"> <% Set conn = Server.CreateObject("ADODB.Connection") dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; " dsnpath = dsnpath & "DBQ=" & DBPath conn.open dsnpath sql = "select * from Poll where ID = " & ID Set rs = conn.Execute(sql) If rs.EOF = False Then %> <% For I=1 To 5 choice = rs("Choice" & I) If choice <> "" Then %> <% End If Next %> <%=rs("PollQuestion")%> <%=choice%> <% End If %>

<%

End Sub


Sub ShowDisplay

Set conn = Server.CreateObject("ADODB.Connection")
sql = "select * from Poll where ID = " & Cint(ID)
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & DBPath
conn.open dsnpath
Set rs = Conn.Execute(sql)
If rs.EOF = False Then
Dim Choices(6)
Dim Responses(6)
For I=1 To 5
choice = rs("Choice" & I)
Choices(I) = choice
If choice <> "" Then
Set conn2 = Server.CreateObject("ADODB.Connection")
sql = "select COUNT(PollAnswer) from PollResults where PollID = " & Cint(id) & " AND PollAnswer=" & I
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & DBPath
conn2.open dsnpath
Set rs2 = Conn.Execute(sql)
If rs2.EOF = False Then
Responses(I) = rs2(0)
End If
rs2.Close
conn2.Close
End If
Next
%>

<% Total = 0 For I=1 To 5 responseCount = Responses(I) If responseCount <> "" Then Total = Total + Cint(responseCount) End If Next For I=1 To 5 choice = Choices(I) responseCount = Responses(I) If choice <> "" Then Response.Write "" Response.Write "" Response.Write "" End If Next Response.Write " ASP Poll Q:<%=rs("PollQuestion")%> " Response.Write choice Response.Write " " & ConvertToPercent(total, responseCount) & "

"
End If
End Sub
%>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论