📄 basic.asp
字号:
<!--#include file="check.asp"-->
<%
dim action,id
id=request.querystring("id")
if id="" then id=0
response.write("<body>")
select case request("action")
case "config"
config
case "configsave"
configsave
case "link"
link
case "edit"
edit
case "updatelink"
updatelink
case "saveadd"
saveadd
case "saveedit"
saveedit
case "dellink"
dellink
case "lockip"
lockip
case "editip"
editip
case "delip"
delip
case "saveaddip"
saveaddip
case "saveeditip"
saveeditip
case "setad"
setad
case "savead"
savead
case "updatebbs"
updatebbs
case "execlean"
execlean
case"updatebbsdate"
updatebbsdate
case"updatetopic"
updatetopic
case"updatealluser"
updatealluser
case"delwuiong"
delwuiong
case"boardupdate"
boardupdate
case else
main
end select
adminfooter()
sub main%>
<div class="ta">
<div class="th jz">论坛系统信息</div>
<div class="td1" >总帖数：<span class="blue"><%=yxbbs.allessaynum%></span></div>
<div class="td2" >主题数：<span class="blue"><%=yxbbs.topicnum%></span></div>
<div class="td1" >注册人数：<span class="blue"><%=yxbbs.usernum%></span></div>
<div class="td2" >最新加入：<span class="blue"><%=yxbbs.newuser%></span></div>
<div class="td1" >创建时间：<span class="blue"><%=yxbbs.builddate%></span></div>
<div class="td2" >今日新帖：<span class="blue"><%=yxbbs.todaynum%></span></div>
<div class="td1" >目前在线人数：<span class="blue"><%=yxbbs.execute("select count(id) from[yx_online]")(0)%></span></div>
<div class="td2" >最大在线人数：<span class="blue"><%=yxbbs.maxonlinenum%> (<%=yxbbs.maxonlinetime%>)</span></div>
<div style="clear: both;"></div>
</div>
<br />
<%if object_install("scripting.filesystemobject")=true then%>
<div class="ta">
<div class="th jz">论坛空间占用情况</div>
<div class="td1" >数 据 库占用空间</div>
<div class="td2" > <%=getsize(0,"../data")%></div>
<div class="td1" >管理目录占用空间</div>
<div class="td2" > <%=getsize(0,"../"&yxbbs.bbssetting(2)&"")%></div>
<div class="td1" >图片目录占用空间</div>
<div class="td2" > <%=getsize(0,"../images")%></div>
<div class="td1" >皮肤目录占用空间</div>
<div class="td2" > <%=getsize(0,"../skins")%></div>
<div class="td1" >上传文件占用空间</div>
<div class="td2" > <%=getsize(0,"../uploadfile")%></div>
<div class="td1" >函数目录占用空间</div>
<div class="td2" > <%=getsize(0,"../inc")%></div>
<div class="td1" >论坛占用空间总计</div>
<div class="td2" > <%=getsize(0,"../")%></div>
<div style="clear: both;"></div>
</div>
<% end if %>
<br />
<div class="ta">
<div class="th jz">服务器的有关参数</div>
<div class="td1" >服务器</div>
<div class="td2 w449" > <%response.write request.servervariables("local_addr")%></div>
<div class="td1" >服务器时间：</div>
<div class="td2 w449" > <%response.write now%></div>
<div class="td1" >服务器版本：</div>
<div class="td2 w449" > <%response.write request.servervariables("server_software")%></div>
<div class="td1" >服务器操作系统：</div>
<div class="td2 w449" > <%if request.servervariables("os")="" then
response.write "windows 2003"
else
response.write request.servervariables("os")
end if%></div>
<div class="td1" >脚本超时时间：</div>
<div class="td2 w449" > <%response.write server.scripttimeout%></div>
<div class="td1" >服务器解译引擎：</div>
<div class="td2 w449" > <%response.write scriptengine & "/"& scriptenginemajorversion &"."&scriptengineminorversion&"."& scriptenginebuildversion %></div>
<div class="td1" >fso文本读写</div>
<div class="td2 w449" > <%if object_install("scripting.filesystemobject")=false then
session(yxbbs.cachename&"fso")="no"%>
<span class="b1 red">×</span> （可能导致部分功能不能使用）
<% else
session(yxbbs.cachename&"fso")="" %>
<span class="b1">√</span> （支持）
<% end if %></div>
<div class="td1" >stream文件流：</div>
<div class="td2 w449" > <%if object_install("adodb.stream")=false then%>
<span class="b1 red">×</span> （不支持）
<% else %>
<span class="b1">√</span> （支持）
<% end if %></div>
<div class="td1" >aspjpeg组件支持：</div>
<div class="td2 w449" > <%if object_install("persits.jpeg")=false then%>
<span class="b1 red">×</span> （可能导致不能使用上传水印的功能）
<% else %>
<span class="b1">√</span> （支持）
<% end if %></div>
<div class="td1" >JMail组件支持：</div>
<div class="td2 w449" > <%if object_install("JMail.SMTPMail")=false then%>
<span class="b1 red">×</span> （可能导致不能使用邮件发送的功能）
<% else %>
<span class="b1">√</span> （支持）
<% end if %></div>
<div style="clear: both;"></div>
</div>
<%
end sub
'空间占用
function getsize(f,drvpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
if f=1 then
set d=fso.getfile(drvpath)
else
set d=fso.getfolder(drvpath)
end if
size=d.size
showsize=size & " byte"
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " KB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
showsize=formatnumber(size,2) & " GB"
end if
getsize=showsize
end function
'组件检测
function object_install(strclassstring)
on error resume next
object_install=false
dim xtestobj
err=0
set xtestobj=server.createobject(strclassstring)
if err=0 then object_install=true
set xtestobj=nothing
err=0
end function
'信息设置
sub config
dim info,rs
set rs=yxbbs.execute("select * from [yx_config]")
info=split(rs("info"),"|")
%>
<a name="inc"></a>
<%call showtable("论坛参数设置","<center><a href=""#inc1"">上传设置</a> | <a href=""#inc2"">金钱参数设置</a> | <a href=""#inc3"">论坛显示设置</a> | <a href=""#inc4"">论坛用户设置</a> | <a href=""#inc5"">论坛系统设置</a></center>")%>
<form method=post name=form style="margin:0" action="?action=configsave">
<br />
<div class="ta">
<div class="th jz">论坛基本设置</div>
<div class="td1 h22">论坛名称：</div>
<div class="td2 h22"><input type="text" name="bbsname" value="<%=rs("bbsname")%>"></div>
<div class="td1 h22">论坛地址：</div>
<div class="td2 h22"><input type="text" name="bbsurl" size="50" value="<%=rs("bbsurl")%>"></div>
<div class="td1 h22">论坛管理目录：</div>
<div class="td2 h22"><input type="text" name="info2" size="10" value="<%=info(2)%>"> <span class="red">*此处填写管理目录名称.</span></div>
<div class="td1 h22">建站日期：</div>
<div class="td2 h22"><input type="text" name="builddate" size="10" value="<%=rs("builddate")%>"> (格式：yyyy-m-d)</td></div>
<div class="td1 h22">关闭论坛：</div>
<div class="td2 h22"><input type="radio" name="bbsclose" value="0" <%if not rs("bbsclose") then%>checked="true"<%end if%>> 开启 <input type="radio" name="bbsclose" value="1" <%if rs("bbsclose") then%>checked="true"<%end if%>> 关闭</div>
<div class="td1 h65">关闭论坛显示信息：<br />支持html语法</div>
<div class="td2 h65 w446"><textarea rows="3" name="closeinfo"><%=rs("closeinfo")%></textarea></div>
<div class="td1 h65">论坛首页公告：<br />支持html语法</div>
<div class="td2 h65 w446"><textarea rows="3" name="srule"><%=rs("srule")%></textarea></div>
<div class="td1 h65">论坛版权信息：<br />支持html语法</div>
<div class="td2 h65 w446"><textarea rows="3" name="copyright" ><%=rs("copyright")%></textarea></div>
<div class="td1 h65">贴间广告信息：<br />支持html语法</div>
<div class="td2 h65 w446"><textarea rows="3" name="google" ><%=rs("google")%></textarea></div>
<div style="clear: both;"></div>
</div>
<br />
<a name="inc1"></a>
<div class="ta">
<div class="th jz">上传设置 <a href="#inc">top</a></div>
<div class="td1 h22">是否允许上传头像：</div>
<div class="td2 h22"><input type="radio" name="info18" value="0" <%if info(18)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info18" value="1" <%if info(18)="1" then%>checked="true"<%end if%>> 否 </div>
<div class="td1 h22">上传头像类型(用@@分隔)：</div>
<div class="td2 h22"><input type="text" name="uploadtype" size="50" value="<%=rs("uploadtype")%>"></div>
<div class="td1 h22">头像上传大小限制：</div>
<div class="td2 h22"><input type="text" name="info19" size="5" value="<%=info(19)%>"> kb</div>
<div class="td1 h22">是否开启上传水印：</div>
<div class="td2 h22"><input type="radio" name="info56" value="0" <%if info(56)="0" then%>checked="true"<%end if%>> 是 <input type="radio" name="info56" value="1" <%if info(56)="1" then%>checked="true"<%end if%>> 否 </div>
<div class="td1 h22">文字样式水印显示：</div>
<div class="td2 h22"><input type="text" name="info57" size="20" value="<%=info(57)%>"></div>
<div class="td1 h22">水印加盖模式：</div>
<div class="td2 h22"><input type="radio" name="info58" value="0" <%if info(58)="0" then%>checked="true"<%end if%>> 文字 <input type="radio" name="info58" value="1" <%if info(58)="1" then%>checked="true"<%end if%>> 图片 *如选图片，请在images下放名为logobox.gif标志.</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -