poll.asp

来自「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户」· ASP 代码 · 共 85 行

ASP
85 行
字号 
<%
StarTime = Timer():AccessNum=0
username=Request.Cookies("username")
%>
<head>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<!--#include file="../conn.asp"-->
<%
lookpollid=Request.QueryString("lookpollid")
if lookpollid<>"" then
   AccessNum=AccessNum+1
   Set rs = Server.CreateObject("ADODB.Recordset")
   sql="SELECT top 11 * FROM 投票项目 where id="&lookpollid&" or 主题ID="&lookpollid&" "
   rs.open sql,conn,1,1
   rs.movefirst
   Response.Write "<table border=0 cellspacing=0 cellpadding=0 align=center class=table1>"
   while not rs.eof
   if rs("主题ID")=0 then Response.Write "<tr><td colspan=2 width=400 height=27 class=Tbhead>&nbsp;主题:"+rs("选项内容")+"</td></tr>" else Response.Write "<tr><td height=27 class=light>&nbsp;"&rs("选项内容")&"</td><td align=center class=light>"&cstr(rs("票数"))&"</td></tr>" end if
   rs.movenext
   wend
else
%><!--#include file="../inc/top1.inc"-->
<!--#include file="BtBBS_Fun.asp"--><%
Call Login_EN
Response.Write "<br><br><br><br>"
speak="<center>投票内容不能为空</center>"
tptype=Request.QueryString("tptype")
pollid=Request.QueryString("pollid")
AccessNum=AccessNum+1
Set rs = Server.CreateObject("ADODB.Recordset") '写入已投过票，或写入已投票
sql="SELECT top 1 * FROM 投票项目 where id="&pollid&" "
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) and instr(1,rs("投票用户"),username)=0 then
 rs("投票用户")=rs("投票用户")+"|"+username
 rs.update
else
 tptype=""
 speak="<center>你已经投过票</center>"
end if
rs.close
set rs=nothing  '---------------

tpnl=Request.Form("tp")
if tptype<>"" and tpnl<>"" then
 if tptype=1 then
   AccessNum=AccessNum+1
   Set rs = Server.CreateObject("ADODB.Recordset")
   sql="SELECT top 1 * FROM 投票项目 where id="&tpnl&" "
   rs.open sql,conn,1,3
   if not (rs.BOF and rs.EOF) then
    rs("票数")=rs("票数")+1
    rs.Update
    Response.Write "投票成功"
   else
    Response.Write "没有找到这个选项"
   end if
   rs.Close
   set rs=nothing
 else
   AccessNum=AccessNum+1
   Set rs = Server.CreateObject("ADODB.Recordset")
   sql="SELECT top 10 * FROM 投票项目 where 主题ID="&pollid&" "
   rs.open sql,conn,1,3
   rs.movefirst
   while not rs.eof
   if instr(1,tpnl,cstr(rs("id")))<>0 then
   rs("票数")=rs("票数")+1
   rs.Update
   end if
   rs.movenext
   wend
   rs.close
   set rs=nothing
   Response.Write "<center>投票成功</center>"
 end if
else
 Response.Write speak
end if
EndTime = Timer()
%><br><br><br><br>
<!--#include file="../inc/tom1.inc"--><%
end if
set conn=nothing
%>

poll.asp - 源码说明

本页面展示了「仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板」中的 poll.asp 源码文件，采用 ASP 编程语言编写，共 85 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与admin相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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