查人人中国名人网他不会死完整版图解:怎么在 Dreamweaver中建立一个网上投票系统
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 07:29:40
<%
Function ReadCounter(CounterFile)
Dim objFSO, objTS
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then
ReadCounter = CLng(objTS.ReadLine)
Else
ReadCounter = 0
End If
objTS.Close
End Function
Sub WriteCounter(CounterFile, Counter)
Dim objFSO, objTS
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counter)
objTS.Close
End Sub
%>
<%
'多声明一个名称为Repeat的Session变量,用来记录是否已经投过票
Dim Vote, Counter1, Counter2, Counter3, Repeat
Application.Lock
Vote = Request("Vote") '读取浏览者所票选的明星是谁
Counter1 = ReadCounter("Vote1.txt") '从文件读取第一个明星的票数
Counter2 = ReadCounter("Vote2.txt") '从文件读取第二个明星的票数
Counter3 = ReadCounter("Vote3.txt") '从文件读取第三个明星的票数
'增加下面4行语句检查是否已经投过票,其中Repeat为Session变量
If (Vote <> Empty) And (Session("Repeat") = True) Then
Response.Write "您已经投过票,不能再重复投票了。"
Response.End
End If
'增加While...Wend语句检查是否为重复投票
While (Vote <> Empty) And (Session("Repeat") <> True)
If Vote = "star1" Then
Counter1 = Counter1 + 1
WriteCounter "Vote1.txt", Counter1
ElseIf Vote = "star2" Then
Counter2 = Counter2 + 1
WriteCounter "Vote2.txt", Counter2
ElseIf Vote = "star3" Then
Counter3 = Counter3 + 1
WriteCounter "Vote3.txt", Counter3
End If
Session("Repeat") = True
Wend
Application.UnLock
%>
<HTML>
<BODY BGCOLOR="#FFE8E6">
<P><IMG SRC="star0.jpg"></P>
只要用鼠标按一下您喜欢的明星照片，她就可以获得<FONT FACE="幼圆">1</font>票喔<FONT FACE="幼圆">!
<TABLE>
<TR>
<TD><A HREF="?{在线票选.asp?Vote=star1"><IMG SRC="star1.jpg" BORDER="0"></A></TD>
<TD><A HREF="?{在线票选.asp?Vote=star2"><IMG SRC="star2.jpg" BORDER="0"></A></TD>
<TD><A HREF="?{在线票选.asp?Vote=star3"><IMG SRC="star3.jpg" BORDER="0"></A></TD>
</TR>
<TR>
<TD></font>深田恭子得票数：<%= Counter1 %></TD>
<TD>松岛菜子得票数：<%= Counter2 %></TD>
<TD>酒井法子得票数：<%= Counter3 %></TD>
</TR>
</TABLE>
</BODY>
</HTML>
建一个数据表，再建两个页面，第二个页面全是代码：
第一个页面
<%
Connstr="DBQ="+server.mappath("database/weiwei.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")
conn.open Connstr
sqlstr="select * from baby"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
dim a,b,c,d
b=rs("wei01")
c=rs("wei02")
d=rs("wei03")
a=b+c+d
%>
<form name="form1" method="post" action="ok.asp">
<table width="558" border="1">
<tr>
<td colspan="6"><div align="center">好娃娃投选举系统</div></td>
</tr>
<tr>
<td width="37">编号</td>
<td width="81">姓名</td>
<td width="94">票数</td>
<td width="88">投票</td>
<td width="90">百分比</td>
<td width="108">图像</td>
</tr>
<tr>
<td>1</td>
<td>Weiwei</td>
<td><%=rs("wei01")%></td>
<td><input type="radio" name="text" value="1"></td>
<td><%=left(b/a*100,5)%>%</td>
<td><table width="<%=150*left(b/a,5)%>" border="0">
<tr>
<td bgcolor="#00FF66"> </td>
</tr>
</table></td>
</tr>
<tr>
<td>2</td>
<td>Lucy</td>
<td><%=rs("wei02")%></td>
<td><input type="radio" name="text" value="2"></td>
<td><%=left(c/a*100,5)%>%</td>
<td><table width="<%=150*left(c/a,5)%>" border="0">
<tr>
<td bgcolor="#00FF66"> </td>
</tr>
</table></td>
</tr>
<tr>
<td>3</td>
<td>Susan</td>
<td><%=rs("wei03")%></td>
<td><input type="radio" name="text" value="3"></td>
<td><%=100-left(b/a*100,5)-left(c/a*100,5)%>%</td>
<td><table width="<%=150*left(d/a,5)%>" border="0">
<tr>
<td bgcolor="#00FF66"> </td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="6"><div align="center">
<input type="submit" name="Submit" value="呵呵，乖乖，提交吧～">
<input type="reset" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
第二个页面
<%
Connstr="DBQ="+server.mappath("database/weiwei.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")
conn.open Connstr
sqlstr="select * from baby where autoid=36"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
select case request("text")
case 1
rs("wei01")=rs("wei01")+1
case 2
rs("wei02")=rs("wei02")+1
case 3
rs("wei03")=rs("wei03")+1
end select
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<script>window.alert('投票成功');window.location.href='default.asp'</script>"
%>
网上找一些ASP源码吧，很多！