Asp投票系统的问题 - ASP - 新微赢技术网

→大虾米々

电梯直达

1^#

发表于 2010-1-8 00:06:38 | 只看该作者回帖奖励

|正序浏览 |阅读模式

一：怎么图片会随投票总数而自动变长度？？<img src=”---“ width=”<这里我不会写>” height=”10”
二：怎么计算得票率？

收藏0

使用道具举报

瘋子愛老婆

9^#

发表于 2010-1-8 00:07:07 | 只看该作者

sub定义个过程

<%
sub ShowVote()
dim sqlVote,rsVote,i
sqlVote="select top 1 * from Vote where IsSelected=True"
Set rsVote= Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
if rsVote.bof and rsVote.eof then
  response.Write "&nbsp;Ã»ÓÐÈÎºÎµ÷²é"
else
  response.write "<form name='VoteForm' method='post' action='vote.asp' target='_blank'><td>"
  response.write "&nbsp;&nbsp;&nbsp;&nbsp;" & rsVote("Title") & "<br>"
  if rsVote("VoteType")="Single" then
for i=1 to 3
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
next
  else
for i=1 to 3
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
next
  end if
  response.write "<br><input name='VoteType' type='hidden'value='" & rsVote("VoteType") & "'>"
  response.write "<input name='Action' type='hidden' value='Vote'>"
  response.write "<input name='ID' type='hidden' value='" & rsVote("ID") & "'>"
  response.write "<div align='center'>"
  response.write "<a href='javascript:VoteForm.submit();'><img src='imgs/voteSubmit.gif' width='52' height='18' border='0'></a>&nbsp;&nbsp;"
      response.write "<a href='Vote.asp?Action=Show' target='_blank'><img src='imgs/voteView.gif' width='52' height='18' border='0'></a>"
  response.write "</div></td></form>"
end if
rsVote.close
set rsVote=nothing
end sub %>

回复支持反对

使用道具举报

月半弯

8^#

发表于 2010-1-8 00:07:03 | 只看该作者

楼上错的。<img src="" width="<%=票数/总票和*100%>%">

但我怎么对应它各自投票的和呀？？

回复支持反对

使用道具举报

孤单一个人

7^#

发表于 2010-1-8 00:06:59 | 只看该作者

怎么没人理呀~~~~~~~~~~~~`高手呢~~~~~~~~~~~`你跑哪里去？？

回复支持反对

使用道具举报

DJ敗類ヤ傲天

6^#

发表于 2010-1-8 00:06:56 | 只看该作者

找个地方调用一下就可以了,,

回复支持反对

使用道具举报

藍麥可兒

5^#

发表于 2010-1-8 00:06:52 | 只看该作者

一会我给你写一个完整的,,呵呵,

回复支持反对

使用道具举报

星溯~~~~天空

4^#

发表于 2010-1-8 00:06:48 | 只看该作者

好人那

回复支持反对

使用道具举报

阿俊

3^#

发表于 2010-1-8 00:06:45 | 只看该作者

这是vote.asp

<%
dim Action,ID,VoteType,VoteOption,sqlVote,rsVote
Action=trim(Request("Action"))
ID=Trim(request("ID"))
VoteType=Trim(request("VoteType"))
VoteOption=trim(request("VoteOption"))
If Action = "Vote" And Id<> "" And VoteOption<>"" And Session("Voted") = "" Then
if VoteType="Single" then
  conn.execute "Update Vote set answer" & VoteOption  & "= answer" & VoteOption & "+1 where ID=" & ID
else
  dim arrOptions
  if instr(VoteOption,",")>0 then
arrOptions=split(VoteOption,",")
dim i
for i=0 to ubound(arrOptions)
conn.execute "Update Vote set answer" & cint(trim(arrOptions(i)))  & "= answer" & cint(trim(arrOptions(i))) & "+1 where ID=" & Clng(ID)
next
  else
conn.execute "Update Vote set answer" & VoteOption  & "= answer" & VoteOption & "+1 where ID=" & Clng(ID)
  end if
end if
session("Voted")="True"
End If
if ID<>"" then
sqlVote="Select * from Vote Where ID=" & Clng(ID)
else
sqlVote="select top 1 * from Vote order by ID desc"
end if
Set rsVote = Server.CreateObject("ADODB.Recordset")
rsVote.open sqlVote,conn,1,1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>调查结果</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
A:link {  color: #333333;TEXT-DECORATION: none }
A:visited {  color: #333333;TEXT-DECORATION: none }
A:active  {  color: #003300;TEXT-DECORATION: none }
A:hover {  color: #003300;TEXT-DECORATION: underline overline }
.navtrail {  COLOR: #eeeeee; FONT-SIZE: 12px; LINE-HEIGHT: 12px }
A.navtrail:link {  COLOR: #eeeeee; CURSOR: w-resize }
A.navtrail:visited {  COLOR: #eeeeee; CURSOR: w-resize }
A.navtrail:active {  COLOR: #eeeeee; CURSOR: w-resize }
A.navtrail:hover {  COLOR: #eeeeee; CURSOR: e-resize }
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc}

</style>
</HEAD>
<BODY leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#C4D3FF">
  <tr>
   <td valign="top">
<%
if Action="Vote" and session("voted")<>"" then
response.write "<font color='#FF0000' size='4'>"
if Session("UserName")<>"" then response.write Session("UserName") & "，"
response.write "<br><br>&nbsp;&nbsp;非常感谢您的投票！</font><br>"
end if
  %>
   <table width="600" border="0" align="center" cellpadding="2" cellspacing="0" class="border">
      <tr align="center" class="title">
      <td height="35" colspan="3"><strong><font color="#FFFFFF">调查结果</font></strong></td>
  </tr>
  <tr class="tdbg"><td>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="2">
            <tr>
            <td width="140" align="right"><div align="center"><strong><font color="#FFFFFF">调查内容：</font></strong></div></td>
            <td colspan="2"><font color="#FFFFFF"><%=rsVote("Title")%></font></td>
            </tr>
            <tr>
            <td width="140" align="right"><div align="center"><strong><font color="#FFFFFF">总投票数：</font></strong></div></td>
            <td colspan="2">
               <font color="#FFFFFF"><%
  dim totalVote
  totalVote=0
  for i=1 to 8
if rsVote("Select" & i)="" then exit for
totalVote=totalVote+rsVote("answer"& i)
  next
  response.Write(totalVote & "票")
  if totalVote=0 then totalVote=1
  %></font>
            </td>
            </tr>
            <tr>
            <td colspan="3" align="center">&nbsp;</td>
            </tr>
            <tr>
            <td width="140" align="center"><font color="#FFFFFF"><strong>投票选项</strong></font></td>
            <td width="64" align="right"><div align="center"><font color="#FFFFFF"><strong>票数</strong></font></div></td>
            <td width="388" align="center"><font color="#FFFFFF"><strong>百分比</strong></font></td>
            </tr>
            <%
  for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
  %>
            <tr>
            <td width="140" align="right"><div align="center"><font color="#ffffff"><%=rsVote("Select"& i)%></font>
               </div></td>
            <td align="right">
               <div align="center"><%
response.write rsVote("answer"& i)
%>
               </div></td>
            <td>
               <%
dim perVote
perVote=round(rsVote("answer"& i)/totalVote,4)
response.write "<img src='imgs/topBar_bg.gif' width='" & round(360*perVote) & "' height='15' align='absmiddle'>"
perVote=perVote*100
if perVote<1 and perVote<>0 then
  response.write "&nbsp;0" & perVote & "%"
else
  response.write "&nbsp;" & perVote & "%"
end if
%>
            </td>
            </tr>
            <% next %>
         </table>
  </td>
  </tr>
</table>
   <%
if session("voted")="" then
  if Session("UserName")<>"" then
response.write Session("UserName") & "，"
  end if
   response.Write "<br><br>您还没有投票，请您在此投下您宝贵的一票！"
  response.write "<form name='VoteForm' method='post' action='vote.asp'>"
  response.write "&nbsp;&nbsp;&nbsp;&nbsp;" & rsVote("Title") & "<br>"
  if rsVote("VoteType")="Single" then
for i=1 to 3
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
next
  else
for i=1 to 3
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
next
  end if
  response.write "<br><input name='VoteType' type='hidden'value='" & rsVote("VoteType") & "'>"
  response.write "<input name='Action' type='hidden' value='Vote'>"
  response.write "<input name='ID' type='hidden' value='" & rsVote("ID") & "'>"
  response.write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:VoteForm.submit();'><img src='imgs/voteSubmit.gif' width='52' height='18' border='0'></a>&nbsp;&nbsp;"
      response.write "<a href='Vote.asp?ID=" & rsVote("ID") & "&Action=Show' target='_blank'><img src='imgs/voteView.gif' width='52' height='18' border='0'></a>"
  response.write "</form>"
end if
dim sqlOtherVote,rsOtherVote
sqlOtherVote="Select * from Vote Where ID<>" & ID & " order by ID desc"
Set rsOtherVote = Server.CreateObject("ADODB.Recordset")
rsOtherVote.open sqlOtherVote,conn,1,1
rsOtherVote.close
set rsOtherVote=nothing
%>
   <p align="center">【<a href="javascript:window.close();"><font color="#FFFFFF">关闭窗口</font></a>】<br>
      <br>
   </p>
  </td>
  </tr>
</table>
</BODY>
</HTML>
<%
rsVote.Close()
Set rsVote = Nothing
call CloseConn()
%>

回复支持反对

使用道具举报

Ｉしovのyou

2^#

发表于 2010-1-8 00:06:41 | 只看该作者

这个可以这么写

<img src=…… width=<%=choices%> 不用加"号直接等于也可以。

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册