uot;
End If
If IsBoard=1 Then
BoardType = Replace(Replace(BoardType,Chr(39),"'"),Chr(34), """)
If BoardParentID=0 Then
NavStr = NavStr & " <a href=""index.asp?boardid="&BoardID&""" onMouseOver=""showmenu(event,BoardJumpList("&Dvbbs.Boardid&"),'''''''',0);"">"&BoardType&"</a>"
Else
If ScriptName="dispbbs.asp" Then
NavStr = NavStr & BoardInfoData & " → <a href=""index.asp?boardid="&BoardID&"&page="&Request("page")&""">"&BoardType&"</a>"
Else
NavStr = NavStr & BoardInfoData & " → <a href=""index.asp?boardid="&BoardID&""">"&BoardType&"</a>"
End If
End If
NavStr = NavStr & " → " & Nowstats
Elseif IsBoard=2 Then
NavStr = NavStr & Nowstats
Else
NavStr = NavStr & "<a href="&GetUrl&">"&GetTitle&"</a> → " & Nowstats
End If
BoardReadme=Replace(Replace(Replace(BoardReadme&"","\n",""),"\r",""),"\","")
NavStr = Replace(mainhtml(5),"{$nav}",NavStr)
NavStr = Replace(NavStr,"{$width}",mainsetting(0))
NavStr = Replace(NavStr,"{$boardreadme}",BoardReadme)
If UserID>0 Then
''''sendmsgnum,sendmsgid,sendmsguser
IsBoard = Split(mainhtml(12),"||")
If Clng(SendMsgNum)>0 Then
BoardReadme = IsBoard(0)
If Forum_Setting(10)=1 Then
BoardReadme = BoardReadme & IsBoard(1) & IsBoard(2)
Else
BoardReadme = BoardReadme & IsBoard(2)
End If
BoardReadme = Replace(BoardReadme,"{$smsid}",sendmsgid)
BoardReadme = Replace(BoardReadme,"{$sender}",sendmsguser)
BoardReadme = Replace(BoardReadme,"{$newmsgnum}",sendmsgnum)
Else
BoardReadme = IsBoard(3)
End If
Dim i,UserGroupList,iGroupName
IsUserPermissionOnly = MyUserInfo(Ubound(MyUserInfo)-2)
If UserGroupParent = 4 Then
BoardReadme = BoardReadme & IsBoard(4)
For i = 0 To Ubound(UserGroupParentID)
Name = "GroupSetting_" & UserGroupParentID(i)
iGroupName = Split(value,"§§§")(3)
If i = 0 Then
UserGroupList = "<a href=cookies.asp?action=ReGroup&GroupID="&UserGroupParentID(i)&">"&iGroupName&"</a><BR>"
Else
UserGroupList = UserGroupList & "<a href=cookies.asp?action=ReGroup&GroupID="&UserGroupParentID(i)&">"&iGroupName&"</a>"
End If
Next
BoardReadme = Replace(BoardReadme,"{$UserGroupList}",UserGroupList)
ElseIf Cint(IsUserPermissionOnly) > 0 Then
BoardReadme = BoardReadme & IsBoard(4)
Name = "GroupSetting_" & IsUserPermissionOnly
iGroupName = Split(value,"§§§")(3)
UserGroupList = "<a href=cookies.asp?action=ReGroup&GroupID="&IsUserPermissionOnly&">"&iGroupName&"</a><BR>"
BoardReadme = Replace(BoardReadme,"{$UserGroupList}",UserGroupList)
End If
NavStr = Replace(NavStr,"{$umsg}",BoardReadme)
Else
NavStr = Replace(NavStr,"{$umsg}","")
End If
NavStr = Replace(NavStr,"{$alertcolor}",mainsetting(1))
NavStr = Replace(NavStr,"{$showstr}","")
Response.Write vbNewLine & NavStr
End Sub
Public Sub AddErrCode(ErrCode)
If ErrCodes = "" Then
ErrCodes = ErrCode
Else
ErrCodes = ErrCodes & "," & ErrCode
End If
End Sub
Public Property Let ErrType(ByVal Value)
ShowErrType = Value
End Property
Public Sub Showerr()
If ErrCodes<>"" Then
If ShowErrType = 1 Then
Response.redirect "showerr.asp?BoardID="&Boardid&"&ErrCodes="&ErrCodes&"&action="&server.URLEncode(Stats)&"&ShowErrType=1"
Else
Response.redirect "showerr.asp?BoardID="&Boardid&"&ErrCodes="&ErrCodes&"&action="&server.URLEncode(Stats)
End If
End If
End Sub
Public Sub Footer()
Dim Tmp,CaCheInfo
''''CaCheInfo = "<li>"
''''CaCheInfo = CaCheInfo & "共使用了" & Application.Contents.Count & "个缓存对象。"
''''CaCheInfo=result
Tmp = mainhtml(18)
Tmp = Replace(Tmp,"{$boardid}",boardid)
If (Dvbbs.Forum_ChanSetting(13)="1" And Dvbbs.Forum_ChanSetting(0)="1") Or Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$UserTicket}","<BR>" & lanstr(11))
Else
Tmp = Replace(Tmp,"{$UserTicket}","")
End If
Response.Write Tmp
Tmp = mainhtml(8)
If Forum_Setting(30) = "1" Then
Dim Endtime
Endtime = Timer()
Tmp = Replace(Tmp,"{$runtime}","<br />页面执行时间 0"&FormatNumber((Endtime-Startime),5)&" 秒, "&SqlQueryNum&" 次数据查询<br />"& CaCheInfo)
End If
Tmp = Replace(Tmp,"{$runtime}","")
Dim Alibaba_Ad
If IsSqlDataBase = 0 Or (IsBuss = 0 And IsSqlDataBase = 1) Or Forum_Info(0)="动网先锋论坛" Then
Alibaba_Ad = "网上贸易 创造奇迹! <a href = ""http://china.alibaba.com"" title = ""从网民、网友时代进入“网商”时代"" target=_blank>阿里巴巴</a> <a href = ""http://www.alibaba.com"" title= ""Online Marketplace of Manufacturers & Wholesalers"" target = ""_blank"">Alibaba</a><BR><BR>"
End If
Tmp = Replace(Tmp,"{$powered}",Alibaba_Ad & "Powered By <a href = ""http://www.dvbbs.net/"" target = ""_blank"">Dvbbs</a> <a href = ""http://www.dvbbs.net/download.asp"" target = ""_blank"">Version " & Forum_Version & "</a>")
If Dvbbs.Forum_ChanSetting(3)="0" Then
Tmp = Replace(Tmp,"{$alipaymsg}","<td width=""2%""></td><td align=right valign=bottom><a href=""https://www.alipay.com"" target=_blank><img src="""&Dvbbs_Server_Url&"dvbbs/alipay_icon2.gif"" border=0 alt=""本论坛采用阿里巴巴支付宝网上银行支付系统，安全、可靠、便捷""></a></td>")
Else
Tmp = Replace(Tmp,"{$alipaymsg}","")
End If
Tmp = Replace(Tmp,"{$Footer_ads}",Forum_ads(1))
Tmp = Replace(Tmp,"{$copyright}",Forum_Copyright)
Response.Write Tmp
End Sub
Public Function Dvbbs_Suc(sucmsg)
Dim TempStr
TempStr = mainhtml(13)
TempStr = Replace(TempStr,"{$sucmsg}",sucmsg)
TempStr = Replace(TempStr,"{$returnurl}",Request.ServerVariables("HTTP_REFERER"))
Response.Write TempStr
TempStr = ""
End Function
Public Function Execute(Command)
If Not IsObject(Conn) Then ConnectionDatabase
If IsDeBug = 0 Then
&nbs上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |
