gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\showerr.asp
<!--#include file="conn.asp"--> <!--#include file="inc/const.asp"--> <!--#include file="inc/dv_clsother.asp"--> <% Dim ErrString,action,i,showstr action=Request("action") Mybbs.LoadTemplates("showerr") If Mybbs.forum_setting(79)="0" Then Template.html(1) = Replace(Template.html(1),"{$getcode}","") Else template.html(3)=Replace(template.html(3),"{$codestr}",Mybbs.GetCode()) Template.html(1) = Replace(Template.html(1),"{$getcode}",template.html(3)) End If Select Case action Case "stop"'论坛暂停 Mybbs.Stats=Template.Strings(1) Mybbs.head() template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(2)&Template.Strings(1)) If Mybbs.BoardID=0 Then If Mybbs.Forum_Setting(69)="0" Or Mybbs.Forum_Setting(21)="1" Then template.html(2)=Replace(template.html(2),"{$stopreadme}",Stopreadme) Else Mybbs.Forum_Setting(70)=Split(Mybbs.Forum_Setting(70),"|") showstr="<br><b> "&Mybbs.Forum_Info(0)&"</b>设置了定时开放,请按下面的时间访问:<hr size=""1""><ul>" For i=0 to UBound(Mybbs.Forum_Setting(70)) If i mod 6=0 Then showstr=showstr&"<li>" If i<10 Then showstr=showstr&" " showstr=showstr&i&"点:" If Mybbs.Forum_Setting(70)(i)="1" Then showstr=showstr&"开放 " Else showstr=showstr&"<font color=""#FF0000"">关闭</font> " End If Next showstr=showstr&"</ul>" template.html(2)=Replace(template.html(2),"{$stopreadme}",showstr) End If Else Mybbs.Board_Setting(22)=Split(Mybbs.Board_Setting(22),"|") showstr="<br><b> "&Mybbs.boardtype&"</b>设置了定时开放,请按下面的时间访问:<hr size=""1""><ul>" For i=0 to UBound(Mybbs.Board_Setting(22)) If i mod 6=0 Then showstr=showstr&"<li>" If i<10 Then showstr=showstr&" " showstr=showstr&i&"点:" If Mybbs.Board_Setting(22)(i)="1" Then showstr=showstr&"开放 " Else showstr=showstr&"<font color=""#FF0000"">关闭</font> " End If Next showstr=showstr&"</ul>" template.html(2)=Replace(template.html(2),"{$stopreadme}",showstr) End If Response.Write Template.html(2) Case "iplock"'IP被限 Mybbs.Stats=Template.Strings(4) Mybbs.head() Session(Mybbs.CacheName & "UserID")=empty template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(4)) Template.Strings(5)=replace(Template.Strings(5),"{$ip}",Mybbs.usertrueip) Template.Strings(5)=replace(Template.Strings(5),"{$email}",Mybbs.Forum_Info(5)) template.html(2)=Replace(template.html(2),"{$stopreadme}",Template.Strings(5)) Response.Write Template.html(2) Case "limitedonline"'在线被限 Mybbs.Stats=Template.Strings(4) Mybbs.head() template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(23)) template.html(2)=Replace(template.html(2),"{$stopreadme}",Replace(Template.Strings(22),"{$onlinelimited}",Request("lnum"))) Response.Write Template.html(2) Case "OtherErr" Mybbs.Stats=action&"-"&Template.Strings(0) Mybbs.head() Mybbs.showtoptable() Mybbs.Head_var 0,"",Template.Strings(0),"" template.html(0)=Replace(template.html(0),"{$color}",Mybbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Mybbs.Forum_Info(0)&"-"&Mybbs.Stats) template.html(0)=Replace(template.html(0),"{$action}","访问论坛") template.html(0)=Replace(template.html(0),"{$ErrCount}",1) template.html(0)=Replace(template.html(0),"{$ErrString}",Request("ErrCodes")) If Request("autoreload")=1 Then Response.Write "<meta http-equiv=refresh content=""2;URL="&Request.ServerVariables("HTTP_REFERER")&""">" End If Response.Write Template.html(0) If Mybbs.userid=0 Then Response.Write Template.html(1) End If Mybbs.ActiveOnline() Mybbs.footer() Case "readonly" Mybbs.Stats="当前论坛为只读" Mybbs.head() Mybbs.showtoptable() Mybbs.Head_var 1,Mybbs.boardtype,"","" template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(2)&"当前时间论坛为只读") If Mybbs.Board_Setting(21)="2" Then Mybbs.Board_Setting(22)=Split(Mybbs.Board_Setting(22),"|") showstr="<br><b> "&Mybbs.boardtype&"</b>设置了定时开放发贴,请在规定的时间内发贴:<hr size=""1""><ul>" For i=0 to UBound(Mybbs.Board_Setting(22)) If i mod 6=0 Then showstr=showstr&"<li>" If i<10 Then showstr=showstr&" " showstr=showstr&i&"点:" If Mybbs.Board_Setting(22)(i)="1" Then showstr=showstr&"开放 " Else showstr=showstr&"<font color=""#FF0000"">关闭</font> " End If Next showstr=showstr&"</ul>" End If If Mybbs.Forum_Setting(69) ="2" Then Mybbs.Forum_Setting(70)=Split(Mybbs.Forum_Setting(70),"|") showstr="<br><b> "&Mybbs.Forum_Info(0)&"</b>设置了当前时间为只读状态,请在规定的时间内发贴:<hr size=""1""><ul>" For i=0 to UBound(Mybbs.Forum_Setting(70)) If i mod 6=0 Then showstr=showstr&"<li>" If i<10 Then showstr=showstr&" " showstr=showstr&i&"点:" If Mybbs.Forum_Setting(70)(i)="1" Then showstr=showstr&"开放 " Else showstr=showstr&"<font color=""#FF0000"">关闭</font> " End If Next showstr=showstr&"</ul>" template.html(2)=Replace(template.html(2),"{$stopreadme}",showstr) End If template.html(2)=Replace(template.html(2),"{$stopreadme}",showstr) Response.Write Template.html(2) Mybbs.ActiveOnline() Mybbs.footer() Case "lock" Mybbs.Stats="论坛已锁定" Mybbs.head() Mybbs.showtoptable() Mybbs.Head_var 0,"",Mybbs.boardtype,"" template.html(2)=Replace(template.html(2),"{$title}",Template.Strings(2)&"论坛已锁定") template.html(2)=Replace(template.html(2),"{$stopreadme}","本论坛已经被锁定,不允许发贴回贴。") Response.Write Template.html(2) Mybbs.ActiveOnline() Mybbs.footer() Case "plus" Mybbs.Stats=action&"-"&Template.Strings(0) Mybbs.head() Mybbs.showtoptable() Mybbs.Head_var 0,"",Template.Strings(0),"" template.html(0)=Replace(template.html(0),"{$color}",Mybbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Mybbs.Forum_Info(0)&"-"&Mybbs.Stats) template.html(0)=Replace(template.html(0),"{$action}","使用论坛插件") template.html(0)=Replace(template.html(0),"{$ErrCount}",1) template.html(0)=Replace(template.html(0),"{$ErrString}",Request("ErrCodes")) Response.Write Template.html(0) If Mybbs.userid=0 Then Response.Write Template.html(1) End If Mybbs.ActiveOnline() Mybbs.footer() Case Else Mybbs.Stats = Action & Template.Strings(0) Mybbs.head() Mybbs.showtoptable() Mybbs.Head_var 0,"",Template.Strings(0),"" template.html(0)=Replace(template.html(0),"{$color}",Mybbs.mainsetting(1)) template.html(0)=Replace(template.html(0),"{$errtitle}",Mybbs.Forum_Info(0)&"-"&Mybbs.Stats) template.html(0)=Replace(template.html(0),"{$action}",action) template.html(0)=Replace(template.html(0),"{$ErrCount}",ErrCount) template.html(0)=Replace(template.html(0),"{$ErrString}",ErrString) Response.Write Template.html(0) If Mybbs.userid=0 Then Response.Write Template.html(1) End If Mybbs.ActiveOnline() Mybbs.footer() End Select Function Stopreadme() Dim Setting Setting=Mybbs.CacheData(1,0) Setting=split(Setting,"|||") Stopreadme=Setting(5) End Function Function ErrCount() Dim ErrCodes,i ErrCount=0 ErrCodes=Request("ErrCodes") If ErrCodes<>"" Then ErrCodes=Split(ErrCodes,",") For i=0 to UBound(ErrCodes) If IsNumeric(ErrCodes(i)) Then If i=0 Then ErrString=ErrString&"<li>"&Template.Strings(ErrCodes(i)) Else ErrString=ErrString&"<br><li>"&Template.Strings(ErrCodes(i)) End If ErrCount=ErrCount+1 End If Next End If End Function %>