📄 admin1.asp
字号:
Else
Caption="错误信息":Content="不是当前使用的数据库全名"
Err.clear
End If
else
Content= "备份目录下并无您的备份文件！"
end if
End IF
Call ShowTable(Caption,Content)
End If
End sub
Sub SqlTable
Dim AllTable,i
%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#4D65A4"><td height="25" colspan="4" bgcolor="#CCCCCC"><b><font color="#FFFFFF">数据表管理</font></b></td>
</tr>
<tr><td height="25" colspan="4" bgcolor="#DEDEDE"><b>说明：</b><br>
默认选中的为当前论坛所使用来保存帖子数据的表，<br>删除数据表将同时全部删除该数据表的所有帖子，请注意！！！<br>
一般帖子数量超过4万左右，请再添加一个数据表，这样您会发现论坛会快很多。</td></tr></tbody></table><br>
<form method=POST name=form style='margin:0' action=?Action=SaveAuteSqlTable>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC"><td height="25" colspan="4"><b><font color="#FFFFFF">设置默认数据表</font></b></td>
</tr> <tr bgcolor="#DEDEDE"><td height="25"><b>数据表</b></td>
<td><b>帖数</b></td>
<td><b>默认</b></td>
<td><b>操作</b></td>
</tr>
<%AllTable=Split(YxBBs.BBSTable(0),",")
For i=0 To uBound(AllTable)
Response.Write"<tr bgcolor=""#DEDEDE""><td height='25'>YX_Bbs"&AllTable(i)&"</td><td>"&YxBBs.execute("Select Count(BBSID) From[YX_bbs"&AllTable(i)&"]")(0)&"</td><td><input name='Aute' type='radio' value='"&AllTable(i)&"'"
If YxBBs.BBSTable(1)=AllTable(i) Then
Response.Write" checked></td><td><a onclick=alert('该数据表为默认数据表，不能删除默认的数据表！') href='#'>"
Else
Response.Write"></td><td><a onclick=checkclick('注意！删除将包括数据表的所有帖子！\n\n删除后将不能恢复！您确定要删除吗？') href='?Action=DelSqlTable&ID="&AllTable(i)&"'>"
End If
Response.Write"<img src='../images/del.gif' width='15' height='15' border='0' align='absmiddle'> 删除</a></td></tr>"
Next
%>
<tr bgcolor="#CCCCCC"><td colspan="5" align="center"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></table>
</form><br>
<form method=POST name=form style='margin:0' action=?Action=SaveAddSqlTable>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#4D65A4"><td height="25" bgcolor="#CCCCCC"><b><font color="#FFFFFF">增加数据表</font></b></td>
</tr>
<tr><td height="35" colspan="4" bgcolor="#DEDEDE">新数据表名称：YX_bbs
<input type="text" name="TableName" size="2" value="<%=int(uBound(AllTable)+2)%>" ONKEYPRESS='event.returnValue=(event.keyCode >= 48) && (event.keyCode <= 57);'> （只填写数字，不能和现有的数据表相同。)</td>
</tr>
<tr bgcolor="#4D65A4"><td align="center" bgcolor="#CCCCCC"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></td></tr></table>
</form>
<%
End Sub
Sub SaveAuteSqlTable
Dim Aute,Temp,AllTable,i
Aute=YxBBs.Fun.GetStr("Aute")
AllTable=Split(YxBBs.BBSTable(0),",")
Temp=""
For i=0 To uBound(AllTable)
If Aute=AllTable(i) Then Temp="yes"
Next
If Temp="" Then
Call Goback("系统出错","无效的数据表名称！"):Exit Sub
End If
IF Int(Aute)<>Int(YxBBs.BBSTable(1)) Then
Temp=YxBBs.BBSTable(0)&"|"&Int(Aute)
YxBBs.execute("Update [YX_Config] Set BbsTable='"&Temp&"' ")
End If
Cache.name="Config"
Cache.clean()
Call Suc("","更改论坛默认数据表成功！","?Action=SqlTable")
End Sub
Sub SaveAddSqlTable
Dim TableName,AllTable,I,Temp
TableName=YxBBs.Fun.GetStr("TableName")
If not YxBBs.Fun.isInteger(TableName) then
Call GoBack("","请用正整数的数字填写！")
Exit Sub
End If
If Int(TableName)=0 Then
Call GoBack("","数据表名不能为0")
Exit Sub
End If
AllTable=Split(YxBBs.BBSTable(0),",")
For i=0 To uBound(AllTable)
If Int(TableName)=Int(AllTable(i)) then
Call GoBack("","数据表名已经存在！")
Exit Sub
End if
Next
Temp=YxBBs.BBSTable(0)&","&TableName&"|"&YxBBs.BBSTable(1)
YxBBs.execute("update [YX_config] Set BbsTable='"&Temp&"'")
YxBBs.execute("CREATE TABLE [YX_bbs"&TableName&"](BbsID int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,TopicID int default 0,ReplyTopicID int default 0,BoardID int default 0,Name varchar(20),Caption varchar(255),Content text,Face int Default 0,AddTime Datetime,LastTime datetime,IsDel bit,Buyer text,Ip varchar(40),UbbString varchar(255))")
YxBBs.execute("create index TopicID on [YX_bbs"&TableName&"] (TopicID)")
YxBBs.execute("create index BoardID on [YX_bbs"&TableName&"] (BoardID)")
YxBBs.execute("create index ReplyTopicID on [YX_bbs"&TableName&"] (ReplyTopicID)")
Cache.name="Config"
Cache.clean()
Call Suc("","成功的添加了 YX_Bbs"&TableName&" 数据表！","?Action=SqlTable")
End Sub
Sub DelSqlTable
Dim ID,Temp,AllTable,I
ID=Request.QueryString("ID")
If int(ID)=int(YxBBs.BBSTable(1)) Then
Call GoBack("","该表被设定为默认使用表，不能删除！")
Exit Sub
End if
AllTable=Split(YxBBs.BBSTable(0),",")
Temp=""
For i=0 To uBound(AllTable)
If int(ID)=Int(AllTable(i)) Then Temp="yes"
Next
If Temp="" Then
Call Goback("系统出错","无效的数据表名称！"):Exit Sub
End If
Temp=""
For i=0 To uBound(AllTable)
If Int(ID)<>int(AllTable(i)) then
Temp=Temp&AllTable(i)&","
End if
Next
Temp=Left(Temp,len(Temp)-1)
Temp=Temp&"|"&YxBBs.BBSTable(1)
YxBBs.execute("update [YX_Config] Set BbsTable='"&Temp&"'")
YxBBs.Execute("Drop table [YX_bbs"&ID&"]")
YxBBs.Execute("Delete*From [YX_Topic] where SqlTableID="&ID&"")
Cache.name="Config"
Cache.clean()
Call Suc("","成功的删除名称为 YX_Bbs"&ID&" 的数据表！同时也删除了该数据表的所有帖子！","?Action=SqlTable")
End Sub
Sub SpaceSize
If Session(YxBBs.CacheName&"fso")="no" Then Call GoBack("","空间不支持FSO文件读写。无法进入下一步。"):Exit Sub
%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#4D65A4"><td height="25" colspan="2" bgcolor="#CCCCCC"><b><font color="#FFFFFF">系统空间占用情况</font></b></td>
</tr>
<tr><td height="25" bgcolor="#DEDEDE">论坛数据占用空间：<img src="../images/hr1.gif" width=<%=drawbar("../Data")%> height=10>
<%showSpaceinfo("../Data")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">管理目录占用空间：<img src="../images/hr2.gif" width=<%=drawbar("../"&YxBBs.BBSSetting(2)&"")%> height=10>
<%showSpecialSpaceinfo("Program")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">图片目录占用空间：<img src="../images/hr4.gif" width=<%=drawbar("../Images")%> height=10>
<%showSpaceinfo("../Images")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">皮肤目录占用空间：<img src="../images/hr5.gif" width=<%=drawbar("../skins")%> height=10>
<%showSpaceinfo("../skins")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">上传头像占用空间：<img src="../images/hr6.gif" width=<%=drawbar("../UploadFile/Head")%> height=10>
<%showSpaceinfo("../UploadFile/Head")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">上传文件占用空间：<img src="../images/hr1.gif" width=<%=drawbar("../UploadFile/TopicFile")%> height=10>
<%showSpaceinfo("../UploadFile/TopicFile")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">Inc 目录占用空间：<img src="../images/hr2.gif" width=<%=drawbar("../inc")%> height=10>
<%showSpaceinfo("../inc")%></td></tr>
<tr><td height="25" bgcolor="#DEDEDE">论坛占用空间总计：<img src="../images/hr3.gif" width=400 height=10> <%showSpaceinfo("../")%></td>
</tr></tbody></table>
<%
End Sub
Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " 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
response.write "<font face=verdana>" & showsize & "</font>"
End Sub
Sub Showspecialspaceinfo(method)
dim fso,d,fc,f1,size,showsize,drvpath
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath("pic")
drvpath=left(drvpath,(instrrev(drvpath,"\")-1))
set d=fso.getfolder(drvpath)
if method="All" then
size=d.size
elseif method="Program" then
set fc=d.Files
for each f1 in fc
size=size+f1.size
next
end if
showsize=size & " Byte"
if size>1024 then
size=(size\1024)
showsize=size & " 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
response.write "<font face=verdana>" & showsize & "</font>"
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("pic")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*20)
Drawbar=barsize
End Function
Function Drawspecialbar()
dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
set fso=server.createobject("scripting.filesystemobject")
drvpathroot=server.mappath("pic")
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
set fc=d.files
for each f1 in fc
size=size+f1.size
next
barsize=cint((size/totalsize)*400)
Drawspecialbar=barsize
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -