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
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
