⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 viewvoter.asp

📁 一个不错的论坛原代码
💻 ASP
字号:
🔍 
<!--#include file="Connections.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="bbs.css" -->

<head><title><%=l_title%>--投票浏览</title></head>

 <body  <%=background%> topmargin="0" >
 
<% 
t_id=chktopic(request("t_id"))
if t_id="" then
errormsg="<LI>参数错误,您没有选择主题</li>"
response.write(errormsg)
response.end
end if
sql="select top 1 v_id, v_title,v_count from vote where v_num="&t_id&" order by v_id desc"
set rs=conn.execute(sql)
if not rs.eof then%>
<table  border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse" >
  <tbody>
  <tr > 
    <td align=center width="100%" height="22" <%=hColor%> class=tdc1 colspan=4> 
    投票主题:<%=rs("v_title")%>
    
</td>
</tr>

  <tr > 
  <td align=center width="8%" height="22" <%=tColor%> class=tdc1> 
    序号
    
</td>

    <td align=center width="30%" height="22" <%=tColor%> class=tdc1> 
    投票标题
    
</td>
 <td align=center width="10%" height="22" class=tdc1 <%=tColor%>> 
    人数
    
</td>
 <td align=center width="50%" height="22" <%=tColor%> class=tdc1> 
    投票用户
    
</td>
</tr>
<%sql1="select  v_title,v_count,v_user from vote where v_num="&t_id&" and v_id<>"&rs("v_id")&" order by v_id asc"
set rs1=conn.execute(sql1)
v=1
do while not rs1.eof %>
  <tr > 
  <td align=center width="8%" height="22" bgcolor=<%=tColor1%> class=tdc> 
    <%=v%>.
    
</td>

    <td align=left width="30%" height="22" bgcolor=<%=tColor1%> class=tdc valingn=top> 
    <%=rs1("v_title")%>
    
</td>
 <td width="15%" height="22" bgcolor=<%=tColor1%> class=tdc valign="top" align=center> 
    <%=rs1("v_count")%>
    
</td>
 <td align=center width="50%" height="22" bgcolor=<%=tColor1%> class=tdc> 
 <table width=100%>
 <tr class=tdc>
    <%v_user=rs1("v_user")
    if not IsNull(v_user) and v_user<>"" then 
     v_user=split(v_user,",")
for i=0 to ubound(v_user)
response.write("<td width=""25%""><a href=viewuser.asp?username="&v_user(i)&" target=_blank title=""查看"&v_user(i)&"的资料"">"&v_user(i)&"</a>")
response.write("</td>")
if i mod 4=3 then response.write("</tr><tr class=tdc>")
next
else
response.write("无人投此项")
end if

    %>
   <TR></table>
</td>
</tr>
 <%rs1.movenext
v=v+1
 loop%>

  <tr > 
    <td align=center height="22" <%=hColor%> class=tdc1 colspan=4> 
    总投票人数:<%=rs("v_count")%>
    
</td>
</tr>
</table>
<%
else
errormsg="<LI>此主题没有投票项目</li>"
response.write(errormsg)
response.end
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -