admin_action.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

Sub Plus
	Dim i,Flag,BgColor
	Response.Write GoForm("SavePlus")%>
	<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">添加论坛插件</font></b></td></tr>
	<tr><td>插件名称：</td><td><input type="text" name="PlusName" size="20"></td></tr>
	<tr><td>连接文件：</td><td><input type="text" name="PlusUrl" size="38">(请填写相对路径)</td></tr>
	<tr><td>所属菜单：</td><td><select name="Flag"><option value="1">娱乐中心</option><option value="0">论坛设施</option></select></td></tr>
	<tr bgcolor="#E8F4EF"><td colspan="5"  align="center"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></td></tr></table>
	</form><br>
	<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4">
	  <td height="25" colspan="6" ><font color="#FFFFFF"><b>论坛插件列表</b></font></td>
	  </tr>
	<tr bgcolor="#D7DAEA"><td height="25" ><b>插件名称</b></td><td><b>连接文件</b></td><td align="center"><b>所在菜单</b></td><td align="center"><b>操作</b></td></tr>
	<%
	Set Rs=BBS94KK.Execute("Select ID,Name,Url,Flag From [KK_Plus] order by Flag desc")
	Do while Not Rs.eof
	If Rs(3)=1 Then
		Flag="娱乐中心"
		BgColor="#DEF0FE"
	 Else
	 	Flag="论坛设施"
		BgColor="#E8F4EF"
	 End If%>
	<tr bgcolor="<%=BgColor%>"><td><%=Rs(1)%></td><td>&nbsp;<a href="<%=Rs(2)%>" target="_blank"><%=Rs(2)%></a></td><td align="center"><%=Flag%></td>
	<td align="center"><a href="?Action=EditPlus&ID=<%=Rs(0)%>"><img src="Images/edit.gif" width="18" height="13" border="0" align="absmiddle"> 编辑</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href="Admin_Confirm.asp?Action=DelPlus&ID=<%=Rs(0)%>"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle"> 删除</a></td>
	</tr>
	<%Rs.movenext
	Loop
	Rs.Close
	%>
	</table></form>
<%End Sub

Sub EditPlus
	Set Rs=BBS94KK.Execute("Select name,Url,Flag From [KK_Plus] where ID="&ID&"")
	Response.Write GoForm("SavePlus")%>
	<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4"><td colspan="2" height="25"><b><font color="#FFFFFF">修改论坛插件</font></b></td></tr>
	<tr><td>插件名称：</td><td><input name="ID" type="hidden" value="<%=ID%>"><input type="text" name="PlusName" size="20" value="<%=Rs(0)%>"></td></tr>
	<tr><td>连接文件：</td><td><input type="text" name="PlusUrl" size="38" value="<%=Rs(1)%>">(请填写相对路径)</td></tr>
	<tr><td>所属菜单：</td><td><select name="Flag"><option value="1" <%If Rs(2)=1 Then%> selected <%End if%>>娱乐中心</option><option value="0"<%If Rs(2)<>1 Then%> selected <%End if%>>论坛设施</option>
	</select></td></tr>
	<tr bgcolor="#E8F4EF"><td colspan="5"  align="center"><input type="submit" value=" 提 交 ">&nbsp;&nbsp;<input type="reset" value=" 重 置 "></td></tr></table>
	</form>
<%Rs.Close
End Sub

Sub GradeName
	Dim i
	Response.Write GoForm("SaveGradeName")%>
	<table width="98%"  Style="WORD-BREAK: break-all;" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4"><td height="25"  colspan='2'><b><font color="#FFFFFF">修改论坛用户组的等级名称</font></b></td></tr>
	<%For i=0 to uBound(BBS94KK.GradeName)
	If i > 20 Then Exit For
	Response.Write "<tr><td height='28'>第 "&i&" 级</td><td>&nbsp;<input type='text' name='Grade_"&i&"' value='"&BBS94KK.GradeName(i)&"'></td></tr>"
	Next%>
	<tr><td align="center" bgcolor="#E8F4EF" colspan='2'><input type="submit" value=" 确定修改 "> <input type='reset' value=' 取消重置 '></td></tr></tbody></table>
	</table></form><%
End Sub

Sub ShowSpaceInfo(drvpath)
	dim fso,d,size,showsize
	set fso=server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject") 		
	drvpath=server.mappath(drvpath) 		 		
	set d=fso.getfolder(drvpath) 		
	size=d.size
	showsize=size & "&nbsp;Byte" 
	if size>1024 then
	   size=(size\1024)
	   showsize=size & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=formatnumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=formatnumber(size,2) & "&nbsp;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("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
	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 & "&nbsp;Byte" 
	if size>1024 then
	   size=(size\1024)
	   showsize=size & "&nbsp;KB"
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=formatnumber(size,2) & "&nbsp;MB"		
	end if
	if size>1024 then
	   size=(size/1024)
	   showsize=formatnumber(size,2) & "&nbsp;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("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
	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)*400)
	Drawbar=barsize
End Function 	
Function Drawspecialbar()
	dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
	set fso=server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
	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

Sub Faction
Dim UserNum%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark="#FFFFFF" bgcolor="#DEF0FE"><tbody>
	<tr bgcolor="#4D65A4">
	  <td height="25" colspan="6" ><font color="#FFFFFF"><b>论坛帮派</b></font></td>
    </tr>
	<tr bgcolor="#D7DAEA"><th height="25" align="center">帮派名称</th><th>掌门人</th><th>人数</th><th>创派时间</th><th>操作</th></tr>
	<%
	Set Rs=BBS94KK.Execute("Select ID,Name,User,BuildDate From [KK_Faction] order by ID desc")
	Do while Not Rs.eof
	UserNum=BBS94KK.Execute("select count(ID) from [KK_User] where Faction='"&Rs(1)&"'")(0)
	%>
	<tr><td align="center"><%=Rs(1)%></td><td align="center">&nbsp;<%=Rs(2)%></td><td align="center"><%=UserNum%></td><td align="center"><%=Rs(3)%></td>
	<td align="center"><a href="?Action=EditFaction&ID=<%=Rs(0)%>"><img src="Images/edit.gif" width="18" height="13" border="0" align="absmiddle"> 编辑</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href="Admin_Confirm.asp?Action=DelFaction&Name=<%=Rs(1)%>"><img src="Images/del.gif" width="18" height="18" border="0" align="absmiddle"> 删除</a></td>
	</tr>
	<%Rs.movenext
	Loop
	Rs.Close
	%>
</table>
<%End Sub

Sub EditF