dispbbs.asp

品泡女人香XI8.NET文章管理系统的源码

			TopicBody = Replace(Replace(TopicBody ,"\","\\"),"'","\'")
			'TopicBody = Replace(TopicBody, vbNewLine,"\n")
			SQL(13,i)=Replace(Lcase(SQL(13,i))&"","[isubb]","")
			.Write "document.write (dvbbs_show_topic('"
			.Write SQL(0,i)
			.Write "','"
			.Write Dvbbs.BoardID
			.Write "',"
			MyTempStr	= "'"&SQL(2,i)&"','"
			ReplaceStr	= SQL(3,i)&""
			If Not (i=0 And Star=1 And TopicMode=1 ) Then
				ReplaceStr = Replace(ReplaceStr&"","<","&lt;")
				ReplaceStr = Replace(ReplaceStr,">","&gt;")
			End If
			ReplaceStr	=	Replace(Replace(ReplaceStr ,"\","\\"),"'","\'")
			MyTempStr	=	MyTempStr & ReplaceStr
			ReplaceStr	=	SQL(14,i)&""
			ReplaceStr	=	Replace(Replace(ReplaceStr ,"\","\\"),"'","\'")
			SQL(14,i)	=	ReplaceStr
			ReplaceStr	=	SQL(15,i)&""
			ReplaceStr	=	Replace(Replace(ReplaceStr ,"\","\\"),"'","\'")
			SQL(15,i)	=	ReplaceStr
			ReplaceStr	=	SQL(16,i)&""
			ReplaceStr	=	Replace(Replace(ReplaceStr ,"\","\\"),"'","\'")
			SQL(16,i)	=	ReplaceStr
			ReplaceStr	=	SQL(23,i)&""
			ReplaceStr	=	Replace(Replace(ReplaceStr ,"\","\\"),"'","\'")
			ReplaceStr	=	Replace(ReplaceStr&"","<","&lt;")
			ReplaceStr	=	Replace(ReplaceStr,">","&gt;")
			SQL(23,i)	=	ReplaceStr
			ReplaceStr	=	SQL(19,i)&""
			ReplaceStr	=	Replace(Replace(ReplaceStr ,"\","\\"),"'","\'")
			SQL(19,i)	=	ReplaceStr
			MyTempStr	=	MyTempStr & "','"&SQL(13,i)&"','"&SQL(14,i)&"','"&SQL(15,i)&"','"&SQL(16,i)&"','"& SQL(23,i) &"','"&Topic_Ads&"','"&SQL(19,i)&"','"&UserSign&"','"&SQL(30,i)&"','"&TopicBody&"'"
			MyTempStr	= Dvbbs.ChkBadWords(MyTempStr)
			MyTempStr	= Replace(Replace(Replace(MyTempStr,chr(13),""),chr(10),""),"$","&#36;")
			.Write MyTempStr
			.Write ",'"
			.Write SQL(4,i)
			.Write "','"
			.Write SQL(6,i)
			.Write "','"
			If Dvbbs.GroupSetting(30)="0" Then
				.Write "*.*.*.*"
			Else
				.Write SQL(7,i)
			End If
			.Write  "','"
			.Write AnnounceID
			.Write "',"
			.Write SQL(9,i)
			.Write ","
			.Write SQL(10,i)
			.Write ","
			.Write SQL(11,i)
			.Write ","
			.Write SQL(12,i)
			.Write ",'"
			.Write SQL(18,i)
			.Write "','"
			.Write SQL(20,i)
			.Write "','"
			.Write SQL(21,i)
			.Write "','"
			.Write SQL(22,i)
			.Write "','"
			REM 修正因用户注册时间为空值时出错 2004-5-22 Dv.Yz
			If Not Isdate(SQL(24,i)) Then
				.Write FormatDateTime(Now(),2)
			Else
				.Write FormatDateTime(SQL(24,i),2)
			End If
			.Write "','"
			.Write SQL(25,i)
			.Write "','"
			.Write SQL(26,i)
			.Write "','"
			.Write SQL(27,i)
			.Write "','"
			.Write SQL(28,i)
			.Write "','"
			.Write SQL(29,i)
			.Write "',"
			.Write SQL(31,i)
			.Write ",'"
			.Write SQL(32,i)
			.Write "','"
			.Write SQL(33,i)
			.Write "',"
			.Write SQL(34,i)
			.Write ",'"
			.Write SQL(35,i)
			.Write "','"
			.Write SQL(38,i)
			.Write "',"
			.Write i
			.Write ",'"
			.Write bgcolor
			.Write "','"
			If SQL(37,i)=1 Or DateDiff("s",SQL(35,i),Now())>Cint(dvbbs.Forum_Setting(8))*60 Then
				.Write  "0"
			Else
				.Write  "1"
			End If
			.Write "','"
			.Write SQL(40,i)
			.Write  "'));"
			UbbLists=""
			.Write  "</Script>"
		Next
		SQL=Null
		.Write "<Script Language=JavaScript>"
		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)
		.Write MyTempStr
		.Write  "</Script>"
	End If
	End With
End Function

Function Show_Topic_FastRe()
	Dim TempStr
	With Response
	.Write "<Script Language=JavaScript>"
	.Write "var Board_Setting5='"&Dvbbs.Board_Setting(5)&"';"
	.Write "var Board_Setting6='"&Dvbbs.Board_Setting(6)&"';"
	.Write "var Board_Setting7='"&Dvbbs.Board_Setting(7)&"';"
	.Write "var Board_Setting8='"&Dvbbs.Board_Setting(8)&"';"
	.Write "var Board_Setting9='"&Dvbbs.Board_Setting(9)&"';"
	.Write "var Board_Setting16='"&Dvbbs.Board_Setting(16)&"';"
	.Write "var Board_Setting44='"&Dvbbs.Board_Setting(44)&"';"
	.Write "var Forum_Setting3='"&Dvbbs.Forum_Setting(3)&"';"
	.Write "var Forum_PostFace='"&Dvbbs.Forum_PostFace&"';"
	.Write "var Forum_PostFace=Forum_PostFace.split(""|||"");"
	.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 
	.Write TempStr
	TempStr = ""
	.Cookies("Dvbbs")=""
	End With
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 "var vote='"&Rs("vote")&"';"
		Response.Write "var votenum='"&Rs("votenum")&"';"
		Response.Write "var votetype='"&Rs("votetype")&"';"
		Response.Write "var voters='"&Rs("voters")&"';"
		Response.Write "</Script>"
		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
		REM 修正最后页面出错信息 2004-5-22 Dv.Yz
		If Rs.Eof Then
			Dvbbs.AddErrcode(33)
			Dvbbs.Showerr()
		End If
		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 
%>