📄 list.asp
字号:
Response.Write SQL(14,i)
Response.Write "','"
Response.Write SQL(16,i)
Response.Write "','"
Response.Write SQL(17,i)
Response.Write "','"
If IsDate(PostTime) Then
Response.Write DateDiff("n",PostTime,now)+cint(Dvbbs.Forum_setting(0))
End If
Response.Write "'));"
Response.Write Chr(10)
Response.Write "hiddentr('follow"
Response.Write SQL(0,i)
Response.Write "');"
Response.Write Chr(10)
Response.Write "</Script>"
Response.Write Chr(10)
Forum_AllTopNum = Forum_AllTopNum + 1
Next
SQL=Null
End If
Rs.Close
Set Rs=Nothing
Else
Forum_AllTopNum = 0
End If
End Function
Function Show_List_Topic()
Dim Cmd,limitime,SQL,Rs,i,TempStr,ti,TopicTempStr
If IsSqlDataBase=1 And IsBuss=1 Then
Set Cmd = Server.CreateObject("ADODB.Command")
Set Cmd.ActiveConnection=conn
Cmd.CommandText="dv_list"
Cmd.CommandType=4
Cmd.Parameters.Append cmd.CreateParameter("@boardid",3)
Cmd.Parameters.Append cmd.CreateParameter("@pagenow",3)
Cmd.Parameters.Append cmd.CreateParameter("@pagesize",3)
Cmd.Parameters.Append cmd.CreateParameter("@tl",3)
Cmd.Parameters.Append cmd.CreateParameter("@topicmode",3)
Cmd.Parameters.Append cmd.CreateParameter("@totalrec",3,2)
Cmd("@boardid")=Dvbbs.BoardID
Cmd("@pagenow")=page
Cmd("@pagesize")=Cint(Dvbbs.Board_Setting(26))
Cmd("@topicmode")=TopicMode
If limitime="" Then
Cmd("@tl")=0
Else
Cmd("@tl")=limitime
End If
set Rs=Cmd.Execute
Else
Set Rs = server.CreateObject ("adodb.recordset")
If Cint(TopicMode)=0 Then
Sql="Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And IsTop=0 Order By LastPostTime Desc"
Else
Sql="Select TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode From Dv_Topic Where BoardID="&Dvbbs.BoardID&" And IsTop=0 And Mode="&TopicMode&" Order By LastPostTime Desc"
End If
Rs.Open Sql,Conn,1,1
End If
Dvbbs.SqlQueryNum = Dvbbs.SqlQueryNum + 1
If Not (Rs.Eof And Rs.Bof) Then
If IsSqlDatabase = 1 And IsBuss=1 Then
SQL=Rs.GetRows(-1)
Else
If TopicNum Mod Cint(Dvbbs.Board_Setting(27))=0 Then
n = TopicNum \ Cint(Dvbbs.Board_Setting(27))
Else
n = TopicNum \ Cint(Dvbbs.Board_Setting(27))+1
End If
Rs.MoveFirst
If page > n Then page = n
If page < 1 Then page = 1
If page >1 Then
Rs.Move (page-1) * Clng(Dvbbs.Board_Setting(26))
End if
If Rs.Eof Then Exit Function
SQL=Rs.GetRows(Dvbbs.Board_Setting(26))
End If
'TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode
Dim Showtitle,postusername
For ti=0 To Ubound(SQL,2)
Response.Write "<Script Language=JavaScript>"
Showtitle=SQL(2,ti)
Showtitle=Replace(Showtitle,"\","\\")
Showtitle=Replace(Showtitle,"""","\""")
Showtitle=Replace(Showtitle,"'","\'")
Showtitle=Replace(Showtitle,"$","＄")
If SQL(16,ti)=1 Then
If Dv_FilterJS(Showtitle) Then
Showtitle=Replace(Showtitle,"<","<")
Showtitle = Replace(Showtitle,">",">")
End If
Else
Showtitle=Replace(Showtitle,"<","<")
Showtitle = Replace(Showtitle,">",">")
End If
postusername=SQL(3,ti)
postusername=Replace(postusername,"\","\\")
postusername=Replace(postusername,"""","\""")
postusername=Replace(postusername,"'","\'")
TopicTempStr = ",'"&Showtitle&"','"&postusername&"','"&Replace(Replace(SQL(9,ti),"\","\\"),"'","\'")&"','"& SQL(15,ti) &"',"
TopicTempStr = Replace(Replace(Replace(Dvbbs.ChkBadWords(TopicTempStr),VbCrLf,"\n"),chr(13),""),chr(10),"")
If SQL(16,ti)=1 Then
TopicTempStr = Replace(TopicTempStr,"<!--","<!--")
Else
TopicTempStr = Replace(TopicTempStr,"<","<")
TopicTempStr = Replace(TopicTempStr,">",">")
End If
Response.Write Chr(10)
Response.Write "document.write (dvbbs_topic_list(TempStr,'"
Response.Write SQL(0,ti)
Response.Write "','"
Response.Write SQL(1,ti)
Response.Write "'"
Response.Write TopicTempStr
Response.Write "'"
Response.Write SQL(4,ti)
Response.Write "','"
Response.Write SQL(5,ti)
Response.Write "','"
Response.Write SQL(6,ti)
Response.Write "','"
Response.Write SQL(7,ti)
Response.Write "','"
Response.Write SQL(8,ti)
Response.Write "','"
Response.Write SQL(10,ti)
Response.Write "','"
Response.Write SQL(11,ti)
Response.Write "','"
Response.Write SQL(12,ti)
Response.Write "','"
Response.Write SQL(13,ti)
Response.Write "','"
Response.Write SQL(14,ti)
Response.Write "','"
Response.Write SQL(16,ti)
Response.Write "','"
Response.Write SQL(17,ti)
Response.Write "','"
If IsDate(SQL(10,ti)) Then
Response.Write DateDiff("n",SQL(10,ti),now)+cint(Dvbbs.Forum_setting(0))
End If
Response.Write "'));"
Response.Write Chr(10)
Response.Write "hiddentr('follow"
Response.Write SQL(0,ti)
Response.Write "');"
Response.Write Chr(10)
Response.Write "</Script>"
Response.Write Chr(10)
Next
SplitPageNum=Ubound(SQL,2)+1
SQL=Null
If TopicNum Mod Cint(SplitPageNum)=0 Then
n = TopicNum \ Cint(SplitPageNum)
Else
n = TopicNum \ Cint(SplitPageNum)+1
End If
If action="batch" And Dvbbs.GroupSetting(45)=1 Then
Dim Forum_Boards,Board_Datas,BoardJumpList,ii,Depth
Forum_Boards=Split(Dvbbs.CacheData(27,0),",")
For i=0 To Ubound(Forum_Boards)
Dvbbs.Name="BoardInfo_" & Forum_Boards(i)
If Dvbbs.ObjIsEmpty() Then Dvbbs.ReloadBoardInfo(Forum_Boards(i))
Board_Datas=Dvbbs.Value
BoardJumpList = BoardJumpList & "<option value="""&Forum_Boards(i)&""" "
BoardJumpList = BoardJumpList & ">"
Depth=Board_Datas(4,0)
Select Case Depth
Case 0
BoardJumpList = BoardJumpList & "╋"
Case 1
BoardJumpList = BoardJumpList & " ├"
End Select
If Depth>1 Then
For ii=2 To Depth
BoardJumpList = BoardJumpList & " │"
Next
BoardJumpList = BoardJumpList & " ├"
End If
BoardJumpList = BoardJumpList & Board_Datas(1,0)&"</option>"
Next
Board_Datas=Null
Forum_Boards=Null
TempStr=template.html(12)
TempStr=Replace(TempStr,"{$boardjump}",BoardJumpList)
TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
TempStr=Replace(TempStr,"{$TopicMode}",SelectBoardTopic)
Response.Write TempStr
End If
Response.Write "<Script Language=JavaScript>"
TempStr=template.html(10)
TempStr=Replace(TempStr,"{$nowpage}",page)
TempStr=Replace(TempStr,"{$allpage}",n)
TempStr=Replace(TempStr,"{$pagetopicnum}",SplitPageNum + Forum_AllTopNum)
TempStr=Replace(TempStr,"{$topicnum}",TopicNum)
TempStr=Replace(TempStr,"{$boardid}",Dvbbs.BoardID)
TempStr=Replace(TempStr,"{$myaction}",action)
TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
Response.Write TempStr
Response.Write "</Script>"
End If
If Forum_AllTopNum = 0 And ti = 0 Then Response.Write template.html(4)
SQL=Null
Rs.Close
Set Rs=Nothing
Set Cmd=Nothing
End Function
Function Chk_List_Err
If Dvbbs.BoardID=0 Then
Dvbbs.AddErrCode(29)
Exit Function
End If
If Cint(Dvbbs.Board_Setting(2))=1 Then
If Dvbbs.UserID=0 Then
Dvbbs.AddErrCode(24)
Else
If Dvbbs.Board_Setting(46)>0 And Chkboardlogin(Dvbbs.Boardid,dvbbs.Membername)=False Then Response.Redirect "pay_boardlimited.asp?boardid=" & Dvbbs.BoardID
If Chkboardlogin(Dvbbs.Boardid,dvbbs.Membername)=False Then Dvbbs.AddErrCode(25)
End If
End If
If Cint(Dvbbs.Board_Setting(1))=1 and Cint(Dvbbs.GroupSetting(37))=0 Then Dvbbs.AddErrCode(26)
If Cint(Dvbbs.GroupSetting(0))=0 Then Dvbbs.AddErrCode(27)
If action="batch" Then
If CInt(Dvbbs.GroupSetting(45))<>1 Then Dvbbs.AddErrCode(28)
End If
End Function
Sub GetChildBoardList()
Dim TempListArray,havenew,loadboard,Board_Datas
TempListArray = Split(template.html(8),"||")
Response.Write Replace(Replace(template.html(7),"{$follow}",Dvbbs.mainpic(11)),"{$nofollow}",Dvbbs.mainpic(10))
Response.Write "<script language=""javascript"">"
Response.Write vbNewLine
'传送图片变量到JS
For i=0 to UBound(template.pic)-1
Response.Write "piclist["&i&"]='"&template.pic(i)&"';"
Response.Write vbNewLine
Next
'传递论坛主设置数据到JS
For i=0 to UBound(Dvbbs.mainsetting)
Response.Write "mainsetting["&i&"]='"&Dvbbs.mainsetting(i)&"';"
Response.Write vbNewLine
Next
'传送模板数据到JS以备调用
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(template.html(4),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(TempListArray(0),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(template.html(5),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(TempListArray(1),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(template.html(6),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(TempListArray(2),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
Response.Write "template[template.length]='"&Replace(Replace(Replace(Replace(template.html(10),"\","\\"),"'","\'"),VbCrLf,"\n"),chr(13),"")&"';"
Response.Write vbNewLine
'传送字符串变量到JS
For i=0 to 10
Response.Write "Strings[Strings.length]='"& template.Strings(i)&"';"
Next
Dim i,BoardID,Rs,ClassID
Dim setings,lastposttime,depth,lastpost,BoardType,BoardReadme
Set Rs=Dvbbs.Execute("select boardid,BoardType,ParentID,ParentStr,Depth,RootID,Child,readme,BoardMaster,PostNum,TopicNum,indexIMG,todayNum,boarduser,LastPost,Sid,Board_Setting,Board_Ads,Board_user,IsGroupSetting,BoardTopStr from Dv_board where ParentID="& Dvbbs.BoardID &" Or BoardID = "&Dvbbs.BoardID&" order by orders")
If Not Rs.Eof Then Board_Datas=Rs.GetRows(-1)
ClassID=""
For i=0 To Ubound(Board_Datas,2)
If Board_Datas(0,i)=Dvbbs.BoardID Then
If ClassID<>"" Then
Response.Write "classfooter();"
End If
ClassID=Board_Datas(0,i)
BoardType=Board_Datas(1,i)
BoardType=Replace(BoardType,"\","\\")
BoardType=Replace(BoardType,"'","\'")
Response.Write "showclass("&Board_Datas(0,i)&",'"&BoardType&"','"&Board_Datas(16,i)&"','"&Request.Cookies("List")("list"&Board_Datas(0,i))&"',"&Board_Datas(6,i)&");"
Else
havenew=0
loadboard=True
setings=split(Board_Datas(16,i),",")(1)
lastpost=Board_Datas(14,i)
lastpost=Dvbbs.HTMLEnCode(lastpost)
lastpost=Replace(lastpost,"\","\\")
lastpost=Replace(lastpost,CHR(10) & CHR(10),"\r")
lastpost=Replace(lastpost,"\'","\'")
lastpost=Replace(lastpost,Chr(10),"\n")
lastpost=Replace(lastpost,Chr(13),"")
lastposttime=split(Board_Datas(14,i),"$")(2)
If Not IsDate(lastposttime) Then lastposttime=Now()
If datediff("h",Dvbbs.Lastlogin,lastposttime)=0 Then havenew=1
If CInt(setings)=1 And CInt(Dvbbs.GroupSetting(37))<>1 Then loadboard=False
If loadboard Then
BoardType=Board_Datas(1,i)
BoardType=Replace(BoardType,"\","\\")
BoardType=Replace(BoardType,"'","\'")
BoardReadme=Board_Datas(7,i)&""
Response.Write "showboard("&Board_Datas(0,i)&",'"&BoardType&"',"&Board_Datas(6,i)&",'"&BoardReadme&"','"&Board_Datas(8,i)&"',"&Board_Datas(9,i)&","&Board_Datas(10,i)&",'"&Board_Datas(11,i)&"',"&Board_Datas(12,i)&",'"&lastpost&"','"&Board_Datas(16,i)&"',"& havenew &");"
End If
If Board_Datas(6,i)>0 Or Not loadboard Then
Response.Write "boardcount++;"
Response.Write "Child=Child-1;"
Response.Write "showcode('','');"
End If
End If
Response.Write vbNewLine
Next
If ClassID<>"" Then
Response.Write "classfooter();"
End If
Set Rs=Nothing
Board_Datas = Null
Response.Write vbNewLine
Response.Write "</script>"
End Sub
Function Dv_FilterJS(v)
Dim Re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
If Not Isnull(V) Then
Dim t,test,Replacelist,t1
t=v
t1=v
re.Pattern="$"
t1=re.Replace(t1,"$")
re.Pattern="$"
t1=re.Replace(t1,"$")
re.Pattern="'"
t1=re.Replace(t1,"'")
re.Pattern="'"
t1=re.Replace(t1,"'")
If InStr(Dvbbs.forum_setting(77),"|")=0 Then
Replacelist="(&#([0-9][0-9]*)|function|meta|language|window\.|script|js:|about:|file:|Document\.|vbs:|frame|cookie|on(finish|mouse|Exit=|error|click|key|load|focus|Blur))"
Else
Replacelist="("&Dvbbs.forum_setting(77)&"&#([0-9][0-9]*)|function|meta|language|window\.|script|js:|about:|file:|Document\.|vbs:|frame|cookie|on(finish|mouse|Exit|error|click|key|load|focus|Blur))"
End If
re.Pattern="<((.[^>]*"&Replacelist&"[^>]*)|"&Replacelist&")>"
Test=re.Test(t1)
Dv_FilterJS=test
End If
Set Re=Nothing
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -