📄 showvote.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<%
'****************************************************************
'* joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'* 版权所有: JoinBoard V2.3
'*
'* 程序制作: 友盟工作室
'*
'* 主页地址: http://joinboard.com 友盟论坛
'*
'* 论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*
'****************************************************************
'* Powered by: JoinBoard V2.3
'* Copyright 2003－2004. - All Rights Reserved.
'* JoinBoard is a trademark of YouMeng Studio.
'****************************************************************
voteID = trim(request.QueryString("ID"))
if Not(IsNumeric(voteID)) or voteID = "0" then
response.Write("<script>jasvascrip:window.close();</script>")
response.End()
End if
set rs = Conn.ExeCute("select JBB_Board.BoardID,JBB_Board.title,JBB_Board.styleid,JBB_Board.bestrowUserStyle,JBB_Board.hide,JBB_thread.threadID,JBB_thread.thread_title From JBB_Board left JOIN JBB_thread on(JBB_thread.Board_ID=JBB_Board.BoardID) where JBB_thread.pollID="&voteID)
if Not rs.eof then
if rs("bestrowUserStyle") then
styleid = rs("styleid")
End if
if rs("hide") then
hide = True
End if
threadID = rs("threadID")
BoardID = rs("BoardID")
title = rs("title")
else
set rs = Nothing
response.Write("<script>jasvascrip:window.close();</script>")
response.End()
End if
set rs = Nothing
%>
<!--#include file="INC/style.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)&" - "& title &" - 查看投票用户"%></title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
return eval(jsStr)
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
if hide = True then
if usergroup <= 4 then
enter = true
End if
else
enter = true
End if
'------------------------------------------------
if enter <> true then
response.Write "<br><br><center>对不起，您无权进入此论坛</center>"
else
set rs = server.CreateObject("adodb.recordset")
rs.open "select JBB_polluser.*,JBB_user.username from JBB_user left join JBB_polluser on(JBB_polluser.userid=JBB_user.userid) where JBB_polluser.pollid="&voteid,conn,1,1
%>
<table height="25" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<tr class="table-title">
<td>投票用户</td>
<td>所投项目</td>
<td>投票时间</td>
</tr>
<%
if not rs.eof then
for i = 1 to rs.recordCount
%>
<tr class="table-light">
<td><%="<a href=""user.asp?userid="&rs("userid")&""" target=""_blank"">"&rs("username")&"</a>"%></td>
<td><%=rs("VoteOption")%></td>
<td><%=rs("votetime")%></td>
</tr>
<%
rs.movenext
next'i
else
%>
<tr class="table-light">
<td colspan="3"><div align="center">暂时没有用户投票</div></td>
</tr>
<%End if%>
</table>
<%
rs.close
set rs = nothing
End if
set conn = nothing
%>
<br><center>
<input name="Submit" type="button" onClick="MM_callJS('window.close()')" value="关闭窗口">
</center><br>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -