📄 adminfso.asp
字号:
<!--#include file="bbs.asp"-->
<%dim action,strt,i,fs,f,usedtable,allow,n,selfname
action=request.querystring("action")
select case action
case"setadv","setadvok" strt="帖间广告管理"
case"access","compact","bak","restore" strt="数据库操作"
case"upload","deluphalfyear","delnovisit","delnouse" strt="上传文件管理"
end select
sub send(str)
response.write"<div align=center><table class=td1 border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#cad6eb width=90% height=50><tr><td width=100% class=td2 colspan=2 background=pic/titlebg.gif height=26><p align=center>操作提示</p></td></tr><tr><td width=100% ><p style='margin:5px;line-height:150%'><font color= red>"&str&"</font></p></td></tr></table></div>"
end sub
%>
<%
Function comp_check(byval str_class)
on error resume next
dim obj_check
set obj_check = Server.CreateObject(str_class)
set obj_check=nothing
if err.number<>0 then
comp_check=false
else
comp_check=true
end if
err.clear()
End Function
Function get_version(byval str_class)
on error resume next
dim obj_check
Set obj_check = Server.CreateObject(str_class)
If err.number=0 Then
get_version=obj_check.version
else
get_version=""
end if
Set obj_check = Nothing
err.clear()
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Dim theInstalledObjects(0)
theInstalledObjects(0) = "Scripting.FileSystemObject"
%>
<body topmargin="0" leftmargin="0">
<%call admintop%>
<div align="center">
<table border="1" cellpadding="0" style="border-collapse: collapse" width="90%" bordercolor="#cad6eb">
<tr>
<td class=td1 width="88%" height="28" background="pic/titlebg.gif"><center><font color=#000000>
<span style="font-weight: 400"> <%=strt%></center></span></td>
</tr>
</table>
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="98%" valign="top" height="475">
<%
select case action
%>
<%case""%>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<tr>
<td class=td2 width="775" colspan="2" bgcolor="#F4F6FC" height="32"> 服务器
信息：</td>
</tr>
<tr>
<td width="344" class=td2>
<p style="margin: 5"><span style="font-weight: 400">服务器时间：</span></td>
<td width="429"> <%=now%></td>
</tr>
<tr>
<td width="344" class=td2>
<p style="margin: 5"><span style="font-weight: 400">服务器端口：</span></td>
<td width="429"> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">IIS 版本：</span></td>
<td> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">脚本引擎版本：</span></td>
<td> <%=ScriptEngine&":"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion%></td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">本论坛绝对路径：</span></td>
<td><%Function TestObj(Str)
On Error Resume Next
TestObj = False
Err.Description = ""
Set TObj = Server.CreateObject(Str)
If Err.Description = "" Then TestObj = True
Set TObj = Nothing
End Function
allow = 1
Response.Write " " & Server.MapPath("index.asp") & "<br>"
%></td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">服务器CPU数量：</span></td>
<td> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">脚本超时时间：</span></td>
<td> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">session过期：</span></td>
<td> <%=session.Timeout%> 分</td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">服务器操作系统：</span></td>
<td> <%=Request.ServerVariables("OS")%></td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><font color="#00FF00"><span style="font-weight: 400">
FSO读写功能情况：</span></font></td>
<td> <%If Not IsObjInstalled(theInstalledObjects(0)) Then%><font color=#ff0000><b>未开启,本站部分功能您将不能使用.</b></font><%else%><b>已开启</b><%end if%></td>
</tr>
<tr>
<td class=td2 width="344" bgcolor="#F4F6FC" height="27"> <font color="#FF0000">论坛信息</font></td>
<td class=td2 width="429" bgcolor="#F4F6FC" height="27"> </td>
</tr>
<tr>
<td class=td2 width="344">
<p style="margin: 5"><span style="font-weight: 400">论坛代码核心：
</span> </td>
<td class=td2 width="429">
<font color="#000000"><span style="font-weight: 400">6kbbs7.0</span></font></td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">论坛代码版本：</span></td>
<td> <font color="#FF0000">Woodcoal.BBS</font> 2005.8.1版</td>
</tr>
<tr>
<td class=td2>
<p style="margin: 5"><span style="font-weight: 400">制作与维护</span></td>
<td> 木炭 <a href="http://www.99321.net" target="_blank">http://www.99321.net</a></td>
</tr> <tr>
<td class=td2 colspan="2" bgcolor="#F4F6FC" height="25">
</td>
</tr>
</table>
</div>
<%case"setadv"%><form method=POST action=adminfso.asp?action=setadvok>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<tr class=td2>
<td width="40%" bgcolor="#F4F6FC" valign="top">
<p style="line-height: 150%; margin: 4"><font color="#000000">
<span style="font-weight: 400">论坛已有广告的显示效果：</span></font></td>
<td width="60%" bgcolor="#F4F6FC">
<p style="line-height: 150%; margin: 4"><font color="#000000">
<span style="font-weight: 400">论坛已有广告的代码：<br>清空代码即删除广告。</span></font></td>
</tr>
<%
dim fso1,openfile,tmpstr,tmp,ad_num,ad_i,ad_tmp
set fso1 = server.createobject("scripting.filesystemobject")
Set openfile=fso1.OpenTextFile(Server.MapPath("../inc/ads.js"))
tmpstr=openfile.readall
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(tmp(1),"a = ","")
ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
for ad_i=1 to ad_num
ad_tmp=replace(tmp(ad_i+8),"b["&ad_i&"].under =","")
ad_tmp=replace(ad_tmp,"'","")
response.write"<tr><td valign=top><p style='line-height: 150%; margin: 4'>"&ad_tmp&"</td><td><p style='line-height: 150%; margin: 4'><textarea rows=5 cols=60 name=ad_v"&ad_i&" style='font-family: 宋体; font-size: 9pt'>"&ad_tmp&"</textarea></td></tr>"
next
openfile.close
set fso1=nothing
%>
<tr>
<td width="100%" bgcolor="#F4F6FC" colspan="2" height="28">
</td>
</tr>
<tr>
<td width="40%" bgcolor="#F4F6FC" valign="top" class=td2>
<p style="line-height: 150%; margin: 4"><span style="font-weight: 400">
<font color="#000000">增加广告：</font></span></td>
<td width="60%" bgcolor="#F4F6FC">
<p style="line-height: 150%; margin: 4">
<textarea row=3 cols=60 name=ad_v<%=ad_num+1%> rows="5" style="font-family: 宋体; font-size: 9pt"></textarea></td>
</tr> <tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -