📄 viewinfo.asp
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/Dv_ubbcode.asp" -->
<!-- #include file="inc/dv_clsother.asp" -->
<!--#include file="inc/ubblist.asp"-->
<%
Dim DvUbb
Set DvUbb = New Dvbbs_UbbCode
DvUbb.PostType=1
Select Case Request("t")
Case "1"
ViewVoters_Main()
Case "2"
Dim Rootid,Action,TopicInfo,BBsInfo,BBsReplyInfo,PostTable,ReplyID
ViewTopicInfo_Main()
Case Else
Dim dv_ubb,abgcolor
ViewPaper_Main()
End Select
Set dv_ubb=Nothing
Sub ViewPaper_Main()
Dvbbs.LoadTemplates("paper_even_toplist")
Dvbbs.stats=template.Strings(3)
Dvbbs.Head()
Dim paperid
Dim username
If Request("id")="" Then
Dvbbs.AddErrCode(35)
ElseIf Not IsNumeric(Request("id")) Then
Dvbbs.AddErrCode(35)
Else
paperID=clng(Request("id"))
End If
Dvbbs.ShowErr()
Set dv_ubb=new Dvbbs_UbbCode
dv_ubb.PostType=2
Dim Rs,Sql
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Dv_SmallPaper Where s_id="&paperid
Set Rs=Dvbbs.Execute(Sql)
If Rs.Eof And Rs.Bof Then
Dvbbs.AddErrCode(32)
Rs.Close
Set Rs=Nothing
Dvbbs.ShowErr()
Else
Dvbbs.Execute("Update Dv_SmallPaper Set s_hits=s_hits+1 Where s_id="&paperid)
Dim TempStr
TempStr = template.html(4)
TempStr = Replace(TempStr,"{$title}",Dvbbs.Htmlencode(rs("s_title")))
TempStr = Replace(TempStr,"{$username}",Dvbbs.Htmlencode(rs("s_username")))
TempStr = Replace(TempStr,"{$hits}",rs("s_hits"))
ubblists=ubblist(Rs("s_content"))&"39,"
TempStr = Replace(TempStr,"{$content}",Dvbbs.ChkBadWords(dv_ubb.Dv_UbbCode(Rs("s_content"),4,2,1)))
TempStr = Replace(TempStr,"{$addtime}",rs("s_addtime"))
Response.Write TempStr
Rs.Close
Set Rs=Nothing
End If
Dvbbs.ActiveOnline()
Dvbbs.Footer()
End Sub
Sub ViewVoters_Main()
Dim voteid,votetype
Dim title,votevalue,votevaluestr,voteoption
Dim TempArray,TempStr,TempStr1,TempStr2,TempStr3
Dim UserID
Dvbbs.Loadtemplates("dispbbs")
Dvbbs.Stats=template.Strings(12)
Dvbbs.head
If Request("id")="" then
Dvbbs.AddErrCode(30)
ElseIf Not IsNumeric(Request("id")) then
Dvbbs.AddErrCode(30)
Else
VoteID=Request("id")
End If
UserID = 0
If Request("UserID")="" or Not Isnumeric(Request("UserID")) Then
If Dvbbs.Userid>0 Then
UserID = Dvbbs.Userid
End If
Else
UserID = Int(Request("UserID"))
End If
Dvbbs.ShowErr
TempArray = Split(template.html(1),"||")
TempStr = TempArray(0)
Dim Rs,i
Dim Sql,k
Dim LockVote,TimeOut
Dim Viewvote
Dim votenum
Viewvote = False
Set Rs=Dvbbs.Execute("select vote,votetype,LockVote,TimeOut,votenum from dv_vote where voteid="&voteid)
If Not (rs.eof And rs.bof) Then
votevalue=Split(rs(0),"|")
votetype = Rs(1)
LockVote = Rs(2)
TimeOut = Rs(3)
votenum = Rs(4)
Else
Dvbbs.AddErrCode(30)
Dvbbs.ShowErr
End If
If LockVote=0 Then
Viewvote = True
Else
If Dvbbs.master Or Dvbbs.superboardmaster Or Dvbbs.boardmaster Then
Viewvote = True
End If
End If
Set Rs=Dvbbs.Execute("select title,postuserid from dv_topic where pollid="&voteid)
If Not (Rs.EOF And rs.bof) Then
Title=Dvbbs.HtmlEncode(rs(0))
If Dvbbs.UserID = Rs(1) Then
Viewvote = True
End If
Else
Dvbbs.AddErrCode(30)
Dvbbs.ShowErr
End If
If Not Viewvote Then
If cCur(DateDiff("s", Now, TimeOut))<0 Then
Viewvote = True
End If
End If
TempStr = Replace(TempStr,"{$title}",title)
Sql = "select v.UserID,v.voteoption,v.VoteDate,u.username from dv_voteuser v inner join [dv_user] u on v.userid=u.userid where voteid="&voteid
If (votetype=2 and Request.QueryString("showall")="1") or Not Viewvote Then
Sql = Sql & " and v.userid="&UserID
End If
Set Rs=Dvbbs.Execute(Sql)
If Rs.Eof And Rs.Bof Then
TempStr = Replace(TempStr,"{$voteinfo}",TempArray(2)&TempArray(4))
Else
Sql = Rs.GetRows(-1)
End If
Rs.Close
Set Rs =Nothing
Dim Votechilds,Votechilds_Title,Votechilds_Type,Votechilds_Ep,VotechildsCheBox_Ep
Dim VoteEp,j,n,VoteChild_Ep,TempStr4,TempStr5
VoteEp = 0
If IsArray(Sql) Then
If votetype=2 and (Request.QueryString("showall")="1" or Not Viewvote) Then
'调查设票显示
voteoption = Split(Sql(1,0),"|")
For k=0 to Ubound(votevalue)
Votechilds = Split(votevalue(k),"@@")
Votechilds_Type = Votechilds(1)
Votechilds_Title = Split(Votechilds(2),"$$")
Votechilds_Ep = Split(Votechilds(3),"$$")
TempStr2 = TempArray(6)
TempStr2 = Replace(TempStr2,"{$votetopic}",Votechilds(0))
If Votechilds_Type = "2" Then
'问题形式
TempStr4 = Replace(TempArray(10),"{$childtitle1}",DvUbb.Dv_UbbCode(voteoption(k),Dvbbs.UserGroupid,1,0))
If Trim(Votechilds_Title(0)) = "null" or Not Viewvote Then
TempStr4 = Replace(TempStr4,"{$childtitle2}","无")
Else
TempStr4 = Replace(TempStr4,"{$childtitle2}",DvUbb.Dv_UbbCode(Votechilds_Title(0),Dvbbs.UserGroupid,1,0))
End If
Else
If Votechilds_Type = "1" Then
VotechildsCheBox_Ep = Split(voteoption(k),"$$")
TempStr4 = ""
For j=0 to Ubound(VotechildsCheBox_Ep)
If Isnumeric(VotechildsCheBox_Ep(j)) Then
VoteChild_Ep = cCur(VoteChild_Ep) + cCur(Votechilds_Ep(VotechildsCheBox_Ep(j)))
TempStr4 = TempStr4 & Replace(TempArray(9),"{$childtitle}",Votechilds_Title(VotechildsCheBox_Ep(j)))
End If
Next
Else
VoteChild_Ep = cCur(Votechilds_Ep(voteoption(k)))
TempStr4 = Replace(TempArray(8),"{$childtitle}",Votechilds_Title(voteoption(k)))
End If
TempStr4 = Replace(TempStr4,"{$childep}",VoteChild_Ep)
If Isnumeric(VoteChild_Ep) Then
VoteEp = VoteEp+cCur(VoteChild_Ep)
VoteChild_Ep = 0
End If
End If
TempStr5 = Replace(TempArray(7),"{$childitems}",TempStr4)
TempStr2 = Replace(TempStr2,"{$childinfo}",TempStr5)
TempStr3 = TempStr3 & TempStr2
Next
TempStr1 = Replace(TempArray(5),"{$votechildinfo}",TempStr3)
TempStr1 = Replace(TempStr1,"{$username}",Sql(3,0))
TempStr1 = Replace(TempStr1,"{$userid}",Sql(0,0))
TempStr1 = Replace(TempStr1,"{$votep}",VoteEp)
TempStr = Replace(TempStr,"{$voteinfo}",TempStr1)
ElseIf Request.QueryString("showall")="2" and votetype=2 Then
TempStr1 = TempArray(11)
votenum = Split(votenum,"|")
voteoption = Split(Sql(1,0),"|")
For k=0 to Ubound(votevalue)
TempStr5 = ""
Votechilds = Split(votevalue(k),"@@")
Votechilds_Type = Votechilds(1)
Votechilds_Title = Split(Votechilds(2),"$$")
Votechilds_Ep = Split(votenum(k),"$$")
TempStr2 = TempArray(6)
TempStr2 = Replace(TempStr2,"{$votetopic}",Votechilds(0))
TempStr2 = Replace(TempStr2,"{$childinfo}",TempArray(7))
For i=0 to Ubound(Votechilds_Title)-1
TempStr4 = TempArray(12)
TempStr4 = Replace(TempStr4,"{$childtopic}",Votechilds_Title(i))
TempStr4 = Replace(TempStr4,"{$childnum}",Votechilds_Ep(i))
TempStr5 = TempStr5 & TempStr4
Next
TempStr2 = Replace(TempStr2,"{$childitems}",TempStr5)
TempStr3 = TempStr3 & TempStr2
Next
TempStr1 = Replace(TempStr1,"{$votechildinfo}",TempStr3)
TempStr = Replace(TempStr,"{$voteinfo}",TempStr1)
Else
'多选与单选显示或查看用户调查得分
'TempStr1 = TempArray(1)&TempArray(3)
For K=0 to ubound(Sql,2)
VoteEp = 0
TempStr2 = TempArray(3)
TempStr2 = Replace(TempStr2,"{$userid}",Sql(0,k))
If Dvbbs.UserID = Sql(0,k) Then
TempStr2 = Replace(TempStr2,"{$username}","<font class=""redfont"">"&Sql(3,k)&"</font>")
Else
TempStr2 = Replace(TempStr2,"{$username}",Sql(3,k))
End If
If votetype=2 Then
voteoption = Split(Sql(1,k),"|")
For i=0 to Ubound(votevalue)
Votechilds = Split(votevalue(i),"@@")
Votechilds_Type = Votechilds(1)
Votechilds_Title = Split(Votechilds(2),"$$")
Votechilds_Ep = Split(Votechilds(3),"$$")
If Votechilds_Type = "1" Then
VotechildsCheBox_Ep = Split(voteoption(i),"$$")
For j=0 to Ubound(VotechildsCheBox_Ep)
If Isnumeric(VotechildsCheBox_Ep(j)) Then
VoteChild_Ep = cCur(VoteChild_Ep) + cCur(Votechilds_Ep(VotechildsCheBox_Ep(j)))
End If
Next
ElseIf Votechilds_Type = "0" Then
VoteChild_Ep = cCur(Votechilds_Ep(voteoption(i)))
Else
VoteChild_Ep = 0
End If
If Isnumeric(VoteChild_Ep) Then
VoteEp = VoteEp+cCur(VoteChild_Ep)
VoteChild_Ep = 0
End If
Next
TempStr2 = Replace(TempStr2,"{$uservote}","总得分：<font class=""redfont"">"&VoteEp&"</font>,[<a href=""viewinfo.asp?showall=1&t=1&userid="&Sql(0,k)&"&boardid="&Dvbbs.boardid&"&id="&voteid&""">查看该用户投票信息</a>]")
Else
TempStr2 = TempArray(3)
voteoption = Split(Sql(1,k),",")
TempStr2 = Replace(TempStr2,"{$userid}",Sql(0,k))
If Dvbbs.UserID = Sql(0,k) Then
TempStr2 = Replace(TempStr2,"{$username}","<font class=""redfont"">"&Sql(3,k)&"</font>")
Else
TempStr2 = Replace(TempStr2,"{$username}",Sql(3,k))
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -