<% Dim TopicCaption,TopicUserName,TopicTopType,TopicIsGood,TopicIsLock,TopicIsVote,TopicHits,TopicReplyNum Dim Page,PageString,PageInfo,ID,UserName,BBSID ID=BBS94KK.CheckNum(request.querystring("ID")) IF BBS94KK.BoardID=0 or ID=0 or BBS94KK.TB=0 then BBS94KK.GoToErr(1) BBS94KK.CheckBoard() GetTopicInfo() Show() FastReply() BBS94KK.Footer() BBS94KK.Execute("UPDATE [KK_Topic] SET Hits=Hits+1 WHERE TopicID="&ID&"") Set BBS94KK=Nothing Sub GetTopicInfo() Dim Rs,Arr_Rs Set Rs=BBS94KK.Execute("Select TopicID,Caption,Name,TopType,IsGood,IsLock,isVote,Hits,ReplyNum,Face,AddTime From [KK_Topic] where TopicID="&ID&" And (BoardID="&BBS94KK.BoardID&" or TopType=4 or TopType=5) and IsDel=0") IF Rs.eof then BBS94KK.GoToErr(21) Arr_Rs=Rs.GetRows(1) Rs.Close Set Rs=Nothing TopicCaption =BBS94KK.Fun.HtmlCode(Arr_Rs(1,0)) TopicUserName=Arr_Rs(2,0) TopicTopType =Arr_Rs(3,0) TopicIsGood =Arr_Rs(4,0) TopicIsLock =Arr_Rs(5,0) TopicIsVote =Arr_Rs(6,0) TopicHits =Arr_Rs(7,0) TopicReplyNum=Arr_Rs(8,0) IF TopicIsGood=1 Then If BBS94KK.Info(64)="0" And Not BBS94KK.FoundUser Then BBS94KK.GoToErr(25) IF BBS94KK.BoardString(5)="1" or BBS94KK.BoardString(6)="1" Then BBS94KK.Head"浏览保密帖子"'屏蔽信息 Else BBS94KK.Head BBS94KK.Fun.StrLeft(Arr_Rs(1,0),25) End IF End Sub Function SayBar() If BBS94KK.BoardString(0)="0" or BBS94KK.MyAdmin=9 or BBS94KK.MyAdmin=8 or (BBS94KK.MyAdmin=7 And BBS94KK.IsBoardAdmin) Then SayBar=""&BBS94KK.SkinsPIC(7)&" "&BBS94KK.SkinsPIC(8)&"" If TopicIsLock=0 or BBS94KK.MyAdmin=9 Then SayBar=SayBar&" "&BBS94KK.SkinsPIC(9)&"" End If End If End Function Function Show() Dim S,S1 S=BBS94KK.ReadSkins("帖子表格") S=Replace(S,"{显示投票}",ShowVote()) S=Replace(S,"{发帖按钮}",SayBar()) S=Replace(S,"{点击数}",TopicHits+1) S=Replace(S,"{主题管理}",SetTopic()) S=Replace(S,"{标题}",TopicCaption) S1=ShowBBS() S=Replace(S,"{分页}",PageInfo) S=Replace(S,"{显示帖子}",S1) Response.Write(S) End Function Function TopicMood() Dim S IF TopicIsGood=1 Then S=BBS94KK.SkinsPIC(13)&" 精华帖子 " IF TopicIsVote=1 then S=S&BBS94KK.SkinsPIC(14)&" 投票帖子 " IF TopicIsLock=1 then S=S&BBS94KK.SkinsPIC(17)&" 此帖锁结 " IF TopicTopType=3 then S=S&BBS94KK.SkinsPIC(12)&" 置顶帖子 " IF TopicTopType=4 then S=S&BBS94KK.SkinsPIC(11)&" 区置顶帖子 " IF TopicTopType=5 then S=S&BBS94KK.SkinsPIC(10)&" 总置顶帖子" IF S<>"" Then S="

"&S&"

" TopicMood=S End Function Function ShowVote() If TopicIsVote=0 Then Exit Function Dim S,Rs,Arr_Rs,Vote,VoteNum,AllvoteNum,VotePicW,Opt,ClueTxt,CanVote,VoteShow,i,ii Set Rs=BBS94KK.Execute("Select TopicID,Vote,VoteNum,VoteType,OutTime From [KK_TopicVote] where TopicID="&ID&"") If Rs.Eof then Exit Function Arr_Rs=Rs.GetRows(1) Rs.Close:Set Rs=Nothing Vote=Split(Arr_Rs(1,0),"|") VoteNum=split(Arr_Rs(2,0),"|") CanVote=True If Not BBS94KK.FoundUser Then ClueTxt="您还没有登陆，不能进行投票。" CanVote=False Else S="【详情】" If Session(CacheName & "MyGradeInfo")(11)="0" Then ClueTxt="您的等级没有参加投票的权限。" CanVote=False End If IF not BBS94KK.Execute("Select User From [KK_TopicVoteUser] where User='"&BBS94KK.MyName&"' and TopicID="&ID&"").eof then ClueTxt="您已经投过票了，不能再投票了。"&S CanVote=False ElseIf SESSION(CacheName& "MyGradeInfo")(37)="1" Then ClueTxt=ClueTxt&S End If If SESSION(CacheName& "MyGradeInfo")(38)="1" Then ClueTxt=ClueTxt&" 【修改投票选项】" End If For i=1 to ubound(Vote) AllvoteNum=Int(AllvoteNum+VoteNum(i)) Next IF AllVoteNum=0 then AllvoteNum=1 For i=1 To ubound(Vote) ii=ii+1 VotePicW=VoteNum(i)/AllvoteNum*85 If CanVote Then IF Int(Arr_Rs(3,0))=1 then Opt="" Else Opt=" " End If IF ii>6 Then ii=1 VoteShow=VoteShow&"

"&VoteNum(i)&" 票

"&i&"."&Opt&BBS94KK.Fun.HtmlCode(Vote(i))&"

" Next VoteShow="

"&VoteShow&"

" If DateDiff("s",BBS94KK.NowBbsTime,Arr_Rs(4,0))<0 then ClueTxt=ClueTxt&"该投票已经过期，不能进行投票。" CanVote=False End If IF CanVote then ClueTxt=""&ClueTxt End IF ClueTxt=ClueTxt&" [ 截止时间："&Arr_Rs(4,0)&" ]" S=BBS94KK.ReadSkins("显示投票") S=Replace(S,"{投票选项}","") ShowVote=S End Function Function ShowBBS() Dim arr_Rs,i,P,BBS94KK_ubb,Grade,ToUrl,Temp,Temp1 Dim S,Template,TempStr,Lou,Fontsize,ShowCaption,ShowMood,AppraiseInfo ToUrl="BoardID="&BBS94KK.BoardID&"&ID="&ID&"&TB="&BBS94KK.TB Set BBS94KK_ubb=New BBS94KKubb_Cls Set P = New Cls_PageView p.strTableName = "[KK_Bbs"&BBS94KK.TB&"] As B inner join [KK_User] As U on B.Name=U.Name" p.strPageUrl = "?"&ToUrl ' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 p.strFieldsList = "B.BbsID,B.TopicID,B.Face,B.Caption,B.Content,B.Name,B.AddTime,B.BoardID,B.UbbString,B.IP,U.Id,U.Name,U.IsQQpic,U.QQ,U.Pic,U.Picw,U.Pich,U.GradeID,U.EssayNum,U.Mail,U.Home,U.Sex,U.Mark,U.Coin,U.Sign,U.Regtime,U.IsShow,U.IsDel,U.IsSign,U.IsVip,U.RegIp,U.LoginNum,U.Honor,U.Faction,B.IsAppraise,B.IsDel" p.strCondiction = "B.isDel<>1 and (B.TopicID="&ID&" or B.ReplyTopicID="&ID&")" p.strOrderList = "B.BbsID" p.strPrimaryKey = "BbsID" P.CountSQL=TopicReplyNum+1 p.intPageSize = BBS94KK.Info(80) p.intPageNow = Request.QueryString("page") p.strCookiesName = "Show_"&ID p.Reloadtime=2 p.InitClass Arr_Rs = p.arrRecordInfo PageInfo = p.strPageInfo page=p.intPageNow Set p = nothing Template=BBS94KK.ReadSkins("显示帖子") If IsArray(Arr_Rs) Then Lou = (Page-1)*10 For i = 0 to UBound(Arr_Rs, 2) UserName=Arr_Rs(11,i) BBSID=Arr_Rs(0,i) BBS94KK_ubb.UbbString=Arr_Rs(8,i) S=Replace(Template,"{数据表ID}",BBS94KK.TB) S=Replace(S,"{版块ID}",BBS94KK.BoardID) S=Replace(S,"{主题ID}",ID) S=Replace(S,"{页次}",page) S=Replace(S,"{帖子ID}",Arr_Rs(0,i)) S=Replace(S,"{发帖时间}",Arr_Rs(6,i)) Temp="*.*.*.*" If BBS94KK.Founduser Then IF SESSION(CacheName& "MyGradeInfo")(42)="1" then Temp=BBS94KK.Fun.GetSqlStr(Arr_Rs(9,i)) End If End If S=Replace(S,"{用户IP}",Temp) If i mod 2 =0 then Temp=" style=""background:"&BBS94KK.Skinspic(1)&"""" Else Temp=" style=""background:"&BBS94KK.Skinspic(2)&"""" S=Replace(S,"{背景色}",Temp) S=Replace(S,"{QQ}",BBS94KK.Fun.GetSqlStr(Arr_Rs(13,i))) S=Replace(S,"{邮箱}",BBS94KK.Fun.GetSqlStr(Arr_Rs(19,i))) S=Replace(S,"{主页}",BBS94KK.Fun.GetSqlStr(Arr_Rs(20,i))) S=Replace(S,"{性别}",BBS94KK.Fun.GetSqlStr(Arr_Rs(21,i))) S=Replace(S,"{积分数}",BBS94KK.Fun.GetSqlStr(Arr_Rs(22,i))) S=Replace(S,"{金钱数}",BBS94KK.Fun.GetSqlStr(Arr_Rs(23,i))) S=Replace(S,"{帖数}",Arr_Rs(18,i)) S=Replace(S,"{注册时间}",formatdatetime(Arr_Rs(25,i),2)) Grade=BBS94KK.GetGradeInfo(Arr_Rs(17,i)) Grade=split(Grade,"|") S=Replace(S,"{等级图片}"," "&Grade(2)&"

") If len(Grade(4))>3 Then Temp=" 尊贵身份标志

" Else Temp="" S=Replace(S,"{等级标志图片}",Temp) S=Replace(S,"{用户名称}",""&Arr_Rs(11,i)&"") S=Replace(S,"{等级}",Grade(2)) Temp=BBS94KK.Fun.GetSqlStr(Arr_Rs(32,i)) If Temp="" Then Temp="社区公民" S=Replace(S,"{头衔}",Temp) Temp=BBS94KK.Fun.GetSqlStr(Arr_Rs(33,i)) If Temp="" Then Temp="无帮无派" S=Replace(S,"{帮派}",Temp) S=Replace(S,"{用户}",Arr_Rs(11,i)) If IsOnline(Arr_Rs(11,i)) Then S=Replace(S,"{在线状态}",BBS94KK.SkinsPIC(19)) Else S=Replace(S,"{在线状态}",BBS94KK.SkinsPIC(20)) End If If Arr_Rs(27,i) then S=Replace(S,"{用户头像}","系统警告
此用户已被暂时删除！") Else IF Arr_Rs(12,i) then S=Replace(S,"{用户头像}"," "&Arr_Rs(11,i)&"

") else S=Replace(S,"{用户头像}"," "&Arr_Rs(11,i)&"

") End If End If If Arr_Rs(1,i)=ID Then ShowCaption=TopicCaption ShowMood=TopicMood() S=Replace(S,"{楼号}","楼主") Else ShowCaption="":ShowMood="" S=Replace(S,"{楼号}","第 "&Lou+i&" 楼") End If If Arr_Rs(35,i)=2 Then Temp1="解除屏蔽" Else Temp1="单帖屏蔽" End If Temp=toUrl&"&BbsID="&Arr_Rs(0,i)&"&page="&Page S=S&"

" AppraiseInfo="" If Arr_Rs(34,i)=1 Then AppraiseInfo=Appraise(Arr_Rs(0,i)) Temp="

" Temp=Temp&""&ShowMood&"

"&ShowCaption&"

" IF Arr_Rs(26,i)=1 then S=Replace(S,"{签名}","

签名档已被管理员屏蔽

") S=Replace(S,"{帖子内容}",Temp&"

该用户帖子已被管理员屏蔽，请和管理员联系

") Else Temp1=Arr_Rs(24,i) IF BBS94KK.Info(44)="0" then Temp1="" IF Arr_Rs(28,i)=1 Then Temp1="

签名档已被管理员屏蔽

" IF isNull(Temp1) or Temp1="" then S=Replace(S,"{签名}",BBS94KK.Info(0)&"欢迎您！") Else S=Replace(S,"{签名}",BBS94KK_ubb.Sign_Code(Temp1)) End IF If Arr_Rs(35,i)=2 Then S=Replace(S,"{帖子内容}",Temp&"

内容被屏蔽

") Else S=Replace(S,"{帖子内容}",Temp&BBS94KK_ubb.UBB(Arr_Rs(4,i),1)&""&AppraiseInfo) End If End IF TempStr=TempStr&S Next ShowBBS=TempStr End If Set BBS94KK_ubb=Nothing End Function Function IsOnline(str) dim EachOnline,S,i,OnlineCache IsOnline=False OnlineCache=BBS94KK.Cache.Value("OnlineCache") If Instr(lcase(OnlineCache),"|"&Lcase(str)&"|")<>0 Then IsOnline=True End If End Function Function SetTopic() Dim S,GO If Not BBS94KK.FoundUser Then Exit Function GO="GO | " S="主题管理：" IF TopicTopType=5 then S=S&Replace(GO,"GO","取消总置顶") Else S=S&Replace(GO,"GO","总置顶") IF TopicTopType=4 Then S=S&Replace(GO,"GO","取消区置顶") ELse S=S&Replace(GO,"GO","区置顶") IF TopicTopType=3 Then S=S&Replace(GO,"GO","取消置顶") ELse S=S&Replace(GO,"GO","置顶") IF TopicIsGood=1 Then S=S&Replace(GO,"GO","取消精华") Else S=S&Replace(GO,"GO","精华") IF TopicIsLock=1 Then S=S&Replace(GO,"GO","解锁") Else S=S&Replace(GO,"GO","锁定") S=S&Replace(GO,"GO","删除")&Replace(GO,"GO","移动")&Replace(GO,"GO","提升")&Replace(GO,"GO","沉底")&Replace(Replace(GO,"GO","已解决")," | ","") SetTopic=S End Function Function Appraise(AstID) Dim Rs,Arr_Rs,i Set Rs=BBS94KK.Execute("Select BbsID,Cause,Mark,Coin,GameCoin,Adminname,AddTime From [KK_Appraise] where BBSID="&AstID&" And TopicID="&ID&" order by AddTime desc") If Rs.Eof Then Exit Function Else Arr_Rs=Rs.GetRows(-1) Rs.Close Appraise="

此帖被评" If BBS94KK.FoundUser Then If SESSION(CacheName& "MyGradeInfo")(41)="1" Then Appraise=Appraise&"【删除】" End If For i=0 To Ubound(Arr_Rs,2) Appraise=Appraise&"
"&Arr_Rs(1,i)&" " If Arr_Rs(2,i)<>0 Then Appraise=Appraise&BBS94KK.Info(121)&":"&Arr_rs(2,i)&" " If Arr_Rs(3,i)<>0 Then Appraise=Appraise&BBS94KK.Info(120)&":"&Arr_rs(3,i)&" " If Arr_Rs(4,i)<>0 Then Appraise=Appraise&BBS94KK.Info(122)&":"&Arr_rs(4,i)&" " Appraise=Appraise&""&Arr_rs(5,i)&" "&Arr_rs(6,i)&"
" Next Appraise=Appraise&"

" End If End Function Function FastReply() with BBS94KK If Not .FoundUser Then Exit Function If .BoardType<>2 or .MyAdmin=9 or .MyAdmin=8 or (.MyAdmin=7 And .IsBoardAdmin) Then IF TopicIsLock=0 Or .MyAdmin=9 or .MyAdmin=8 then Dim Tmp,S,Edit S="" S=S&"" .ShowTable "快速回复:"&TopicCaption,S End If End If End With End Function %>