dispbbs.asp

功能强大的bbs

				Else
					Topic_Ads=""
				End If
			End If	
			UserSign=""
			If Not Isnull(SQL(17,i)) Or Not SQL(17,i)="" Then
				If SQL(9,i)=1 and SQL(31,i)=0 and Cint(Dvbbs.forum_setting(42))=1 Then
					UserSign = SimJsReplace(dv_ubb.Dv_SignUbbCode(SQL(17,i),SQL(34,i)))
					UserSign = Replace(UserSign, vbNewLine,"\n")
				End If
			End If
			Ubblists=SQL(39,i)
			If Not (SQL(31,i)=2 Or (SQL(10,i)=1 And CInt(Dvbbs.GroupSetting(41))=0) Or SQL(31,i)=1) Then
				If InStr(Ubblists,",39,") > 0  Then
					TopicBody = SimJsReplace(dv_ubb.Dv_UbbCode(SQL(5,i),SQL(34,i),1,0))
				Else
					TopicBody = SimJsReplace(dv_ubb.Dv_UbbCode(SQL(5,i),SQL(34,i),1,1))
				End If			
			End If
			TopicBody = Replace(TopicBody, vbNewLine,"\n")
			SQL(13,i)=Replace(Lcase(SQL(13,i))&"","[isubb]","")
			Response.Write "document.write (dvbbs_show_topic('"
			Response.Write SQL(0,i)
			Response.Write "','"
			Response.Write Dvbbs.BoardID
			Response.Write "',"
			MyTempStr = "'"&SimJsReplace(SQL(2,i))&"','"
			If i=0 And Star=1 Then
				If TopicMode=1 Then
					MyTempStr = MyTempStr & SimJsReplace(SQL(3,i))
				Else
					SQL(3,i) = Replace(SQL(3,i)&"","<","&lt;")
					SQL(3,i) = Replace(SQL(3,i),">","&gt;")
					MyTempStr = MyTempStr & SimJsReplace(SQL(3,i))
				End If
			Else
				SQL(3,i) = Replace(SQL(3,i)&"","<","&lt;")
				SQL(3,i) = Replace(SQL(3,i),">","&gt;")
				MyTempStr = MyTempStr & SimJsReplace(SQL(3,i))
			End If
			MyTempStr = MyTempStr & "','"&SimJsReplace(SQL(13,i))&"','"&SimJsReplace(SQL(14,i))&"','"&SimJsReplace(SQL(15,i))&"','"&SimJsReplace(SQL(16,i))&"','"&SimJsReplace(server.htmlencode(SQL(23,i)&""))&"','"&Topic_Ads&"','"&SimJsReplace(SQL(19,i))&"','"&UserSign&"','"&SQL(30,i)&"','"&TopicBody&"'"
			MyTempStr = Dvbbs.ChkBadWords(MyTempStr)
			MyTempStr = Replace(Replace(Replace(MyTempStr,chr(13),""),chr(10),""),"<!--","&lt;!--")
			Response.Write MyTempStr
			Response.Write ",'"
			Response.Write SQL(4,i)
			Response.Write "','"
			Response.Write SQL(6,i)
			Response.Write "','"
			If Cint(Dvbbs.GroupSetting(30))=0 Then
				Response.Write  "*.*.*.*"
			Else
				Response.Write  SQL(7,i)
			End If
			Response.Write  "','"
			Response.Write AnnounceID
			Response.Write "',"
			Response.Write SQL(9,i)
			Response.Write ","
			Response.Write SQL(10,i)
			Response.Write ","
			Response.Write SQL(11,i)
			Response.Write ","
			Response.Write SQL(12,i)
			Response.Write ",'"
			Response.Write SQL(18,i)
			Response.Write "','"
			Response.Write SQL(20,i)
			Response.Write "','"
			Response.Write SQL(21,i)
			Response.Write "','"
			Response.Write SQL(22,i)
			Response.Write "','"
			Response.Write FormatDateTime(SQL(24,i),2)
			Response.Write "','"
			Response.Write SQL(25,i)
			Response.Write "','"
			Response.Write SQL(26,i)
			Response.Write "','"
			Response.Write SQL(27,i)
			Response.Write "','"
			Response.Write SQL(28,i)
			Response.Write "','"
			Response.Write SQL(29,i)
			Response.Write "',"
			Response.Write SQL(31,i)
			Response.Write ",'"
			Response.Write SQL(32,i)
			Response.Write "','"
			Response.Write SQL(33,i)
			Response.Write "',"
			Response.Write SQL(34,i)
			Response.Write ",'"
			Response.Write SQL(35,i)
			Response.Write "','"
			Response.Write SQL(38,i)
			Response.Write "',"
			Response.Write i
			Response.Write ",'"
			Response.Write bgcolor
			Response.Write "','"
			If SQL(37,i)=1 Or DateDiff("s",SQL(35,i),Now())>Cint(dvbbs.Forum_Setting(8))*60 Then
				Response.Write  "0"
			Else
				Response.Write  "1"
			End If
			Response.Write "','"
			Response.Write SQL(40,i)
			Response.Write  "'));"
			Response.Write  chr(10)
			UbbLists=""
			Response.Write  "</Script>"
			Response.Write Chr(10)
		Next
		SQL=Null
		Response.Write "<Script Language=JavaScript>"
		Response.Write Chr(10)
		MyTempStr = template.html(5)
		MyTempStr = Replace(MyTempStr,"{$width}",Dvbbs.mainsetting(0))
		MyTempStr = Replace(MyTempStr,"{$boardid}",Dvbbs.BoardID)
		MyTempStr = Replace(MyTempStr,"{$replyid}",ReplyID)
		MyTempStr = Replace(MyTempStr,"{$announceid}",AnnounceID)
		MyTempStr = Replace(MyTempStr,"{$skin}",Skin)
		MyTempStr = Replace(MyTempStr,"{$page}",Page)
		MyTempStr = Replace(MyTempStr,"{$topicnum}",TopicCount)
		MyTempStr = Replace(MyTempStr,"{$boardjump}",Dvbbs.BoardJumpList)
		Response.Write MyTempStr
		Response.Write Chr(10)
		Response.Write  "</Script>"
	End If
	Rs.Close
	Set Rs=Nothing
End Function

Function Show_Topic_FastRe()
	Dim TempStr
	Response.Write "<Script Language=JavaScript>"
	Response.Write "var Board_Setting5='"&Dvbbs.Board_Setting(5)&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting6='"&Dvbbs.Board_Setting(6)&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting7='"&Dvbbs.Board_Setting(7)&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting8='"&Dvbbs.Board_Setting(8)&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting9='"&Dvbbs.Board_Setting(9)&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting16='"&Dvbbs.Board_Setting(16)&"';"
	Response.Write Chr(10)
	Response.Write "var Board_Setting44='"&Dvbbs.Board_Setting(44)&"';"
	Response.Write Chr(10)
	Response.Write "var Forum_Setting3='"&Dvbbs.Forum_Setting(3)&"';"
	Response.Write Chr(10)
	Response.Write "var Forum_PostFace='"&Dvbbs.Forum_PostFace&"';"
	Response.Write Chr(10)
	Response.Write "var Forum_PostFace=Forum_PostFace.split(""|||"");"
	Response.Write Chr(10)
	Response.Write "</Script>"
	TempStr = template.html(6)
	TempStr = Replace(TempStr,"{$topic}",Topic)
	TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	If Dvbbs.Board_Setting(4)="0" Then
		'Dim re
		'Set re=new RegExp
		're.IgnoreCase =True
		're.Global=True
		're.Pattern="<(.[^>]*)>"
		'Topic=re.Replace(Topic,"")	
		'Set re=Nothing
		'Topic=server.htmlencode(Topic)
		'Topic=Left(Topic,50)
		'TempStr = Replace(TempStr,"{$getcode}","&nbsp;<B>标题：</B><input name=""topic"" size=20 class=FormClass value=""Re："&Topic&""">")
		TempStr = Replace(TempStr,"{$getcode}","")
	Else
		TempStr = Replace(TempStr,"{$getcode}","&nbsp;<B>验证码：</B>"&Dvbbs.GetCode())
	End If
	TempStr = Replace(TempStr,"{$membername}",Dvbbs.membername)
	TempStr = Replace(TempStr,"{$followup}",followup)
	TempStr = Replace(TempStr,"{$announceid}",AnnounceID)
	TempStr = Replace(TempStr,"{$star}",Star)
	TempStr = Replace(TempStr,"{$totalusetable}",TotalUseTable)
	TempStr = Replace(TempStr,"{$Forum_Emot}",Replace(Dvbbs.Forum_emot&"","|||","<><><>"))
	TempStr = Replace(TempStr,"{$MaxLength}",Clng(Dvbbs.Board_Setting(16)))
	Dim Content
	Content=Session(Dvbbs.CacheName & "UserID")
	If IsArray(Content) And Dvbbs.userID > 0 Then
		TempStr = Replace(TempStr,"{$content}",Server.HTMLEncode(Content(37)))
	Else
		TempStr = Replace(TempStr,"{$content}","")
	End If 
	Response.Write TempStr
	TempStr = ""
	Response.Cookies("Dvbbs")=""
End Function

Function Show_Topic_ManageAction()
	Dim TempStr
	TempStr = template.html(7)
	TempStr = Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
	TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
	TempStr = Replace(TempStr,"{$announceid}",AnnounceID)
	TempStr = Replace(TempStr,"{$replyid}",ReplyID)
	If IsTop > 0 Then
		TempStr = Replace(TempStr,"{$topstr}",template.Strings(10))
	Else
		TempStr = Replace(TempStr,"{$topstr}",template.Strings(11))
	End If
	Response.Write TempStr
	TempStr = ""
End Function

Function Show_Topic_Vote()
	Dim TempStr,Rs,Trs
	Set Rs=Dvbbs.Execute("Select * From Dv_Vote Where VoteID="&PollID)
	If Not (Rs.Eof And Rs.Bof) Then
		Response.Write "<Script Language=JavaScript>"
		Response.Write Chr(10)
		Response.Write "var vote='"&Rs("vote")&"';"
		Response.Write Chr(10)
		Response.Write "var votenum='"&Rs("votenum")&"';"
		Response.Write Chr(10)
		Response.Write "var votetype='"&Rs("votetype")&"';"
		Response.Write Chr(10)
		Response.Write "var voters='"&Rs("voters")&"';"
		Response.Write Chr(10)
		Response.Write "</Script>"
		Response.Write Chr(10)
		TempStr = template.html(8)
		TempStr = Replace(TempStr,"{$topic}",Topic)
		TempStr = Replace(TempStr,"{$announceid}",AnnounceID)
		TempStr = Replace(TempStr,"{$votetype}",Rs("votetype"))
		If Dvbbs.UserID=0 Or datediff("d",rs("timeout"),Now())>0 Or locktopic=1 Then
			TempStr = Replace(TempStr,"{$uservoteinfo}",Split(template.html(9),"||")(0))
		Else
			Set Trs=Dvbbs.Execute("Select Count(*) From Dv_voteuser Where voteid="&PollID&" And userid="&Dvbbs.userid)
			If Trs(0)=0 Then 
				TempStr = Replace(TempStr,"{$uservoteinfo}",Split(template.html(9),"||")(1))
			Else
				TempStr = Replace(TempStr,"{$uservoteinfo}",Split(template.html(9),"||")(2))
			End If
			Set Trs=Nothing 
		End  If
		TempStr = Replace(TempStr,"{$timeout}",Rs("timeout"))
		TempStr = Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
		TempStr = Replace(TempStr,"{$voteid}",PollID)
		TempStr = Replace(TempStr,"{$uarticle}",Rs("UArticle")&"")
		TempStr = Replace(TempStr,"{$uep}",Rs("UEP")&"")
		TempStr = Replace(TempStr,"{$ucp}",Rs("UCP")&"")
		TempStr = Replace(TempStr,"{$upower}",Rs("UPower")&"")
		TempStr = Replace(TempStr,"{$umoney}",Rs("UWealth")&"")
		'Response.Write TempStr
		Show_Topic_Vote = TempStr
		TempStr = ""
	End If
	Set Rs=Nothing
End Function

Function SimJsReplace(str)
	If IsNull(str) Or str="" Then Exit Function
	str=Replace(str,"\","\\")
	str=Replace(str,"'","\'")
	str=Replace(str,"$","&#36;")
	SimJsReplace=str
End Function
Function Dvbbs_TopicMode(str,tmode)
	Select Case tmode
	Case "1"
		Dvbbs_TopicMode=str
	Case "2"
		Dvbbs_TopicMode="<font color=red>"&Dvbbs.Htmlencode(str)&"</font>"
	Case "3"
		Dvbbs_TopicMode="<font color=blue>"&Dvbbs.Htmlencode(str)&"</font>"
	Case "4"
		Dvbbs_TopicMode="<font color=green>"&Dvbbs.Htmlencode(str)&"</font>"
	Case Else
		Dvbbs_TopicMode=Dvbbs.HtmlEncode(str)
	End Select
End Function
Sub Showtree()
	template.html(10) = Replace(template.html(10),"{$boardid}",Dvbbs.BoardID)
	template.html(10) = Replace(template.html(10),"{$replyid}",ReplyID)
	template.html(10) = Replace(template.html(10),"{$announceid}",AnnounceID)
	template.html(10) = Replace(template.html(10),"{$openid}",followup)
	Response.Write template.html(10)
End Sub
Function AnnounceIDlist()
	Dim Rs,SQL,i,starcount
	starcount=(Star-1)*Dvbbs.Board_Setting(27)
	SQL="Select Announceid From "&TotalUseTable&" Where BoardID="&Dvbbs.BoardID&" And RootID="&Announceid&" Order By AnnounceID"
	Set Rs=Dvbbs.Execute(SQL)
	If Not Rs.eof Then 
		Rs.move starcount
		AnnounceIDlist=Rs(0)
		Rs.movenext
		For i=1 to Dvbbs.Board_Setting(27)
			If Rs.eof Then Exit For
			AnnounceIDlist=AnnounceIDlist&","&Rs(0)
			Rs.movenext
		Next
	Else
		Dvbbs.AddErrcode(32)
		Dvbbs.Showerr()
	End If 
	Set Rs=Nothing 
End Function 
%>