admin.asp

YxBBs是由Y网出品的一套ASP论坛系统,拥有小巧、高速、简捷、易用等特点。在YxBBs1.X刚起步的时候经过了大量的版本测试,现在YxBBs完善了技术

<!--#include file="Check.Asp"-->
<!--#include file="../Inc/Page_Cls.Asp"-->
<!--#include file="../Inc/Ubb_Cls.Asp"-->
<script>
function okdel()
{
	if(!confirm("确认删除？"))
		return false
	else
		return true 
}
</script>

<%
if Request("action")="del" and isNumeric(Request("ID")) then
        if conn.execute("Select count(*) from YX_Admin")(0)<=1 Then 
        Call GoBack("","目前只有一个管理员，不能删除！")
        Else
        Conn.Execute("Delete From YX_Admin where id="&Request("ID")&"")
        Call Suc("","管理员删除成功！","Admin.Asp")
		    End if
End if
%>
<%if Request("action")="" then%>
<table class=tableBorder cellpadding=6 cellspacing=1 border=0 width=95% align="center">
	<tr>
	<th  valign=middle colspan=4 align=center>管 理 员 信 息</th></tr>
 		<tr bgcolor=#d7d7d7 align="center">
		<td width="25%">用户名</td>		
		<td width="25%">上次登录时间</td>
		<td width="25%">上次登录IP</td>
		<td width="25%">操作</td>		
		</tr>
		<%
		Set Rs=Conn.execute("select ID,Name,LastLoginTime,LastLoginIP from YX_Admin")
		while not rs.eof
		%>
 		<tr align="center" bgcolor=#d7d7d7>
		<td width="25%"><A HREF="?action=editadmin1&ID=<%=rs("ID")%>"><%=rs("Name")%></A></td>		
		<td width="25%"><%=rs("LastLoginTime")%></td>		
		<td width="25%"><%=rs("LastLoginIP")%></td>		
		<td width="25%" align="center"><A HREF="?action=editadmin1&ID=<%=rs("ID")%>">编辑</A> <A HREF="?Action=del&ID=<%=rs("ID")%>" onclick="return okdel()">删除</a></td>		
		</tr>
		<%
		rs.movenext
		wend
		set rs=nothing
		%>
		<tr>
		<td bgcolor=#e7e7e7 valign=middle colspan=4 align=center>
	</td></tr>
</table>
<%end if%>
<%if Request("action")="Right" then%>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class=tableBorder>
    <tr>
    <th height="28" colspan="2"><b>论坛系统信息</b></th>
    </tr>
  <tr bgcolor="#DEDEDE">
	<td width="17%">总帖数：<font color=blue><%=YxBBs.AllEssayNum%></font></td>
	<td width="32%">主题数：<font color=blue><%=YxBBs.TopicNum%></font></td>
  </tr>
  <tr bgcolor="#DEDEDE">
	<td>注册人数：<font color=blue><%=YxBBs.userNum%></font></td>
	<td>最新加入：<font color=blue><%=YxBBs.NewUser%></font></td>
  </tr>
  <tr bgcolor="#DEDEDE">
	<td>创建时间：<font color=blue><%=YxBBs.BuildDate%></font></td>
	<td>今日新帖：<font color=blue><%=YxBBs.TodayNum%></font></td>
  </tr>
  <tr bgcolor="#DEDEDE">
	<td>目前在线人数：<font color=blue><%=YxBBs.Execute("Select Count(ID) From[YX_online]")(0)%></font></td>
	<td>最大在线人数：<font color=blue><%=YxBBs.MaxOnlineNum%></font> (<%=YxBBs.MaxOnlineTime%>)</td>
  </tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class=tableBorder>
  <%if object_install("scripting.filesystemobject")=True then%>
    <tr bgcolor="#CCCCCC"><th height="26" colspan=2>论坛空间占用情况</th>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td width='17%'>数 据 库占用空间</td>
    <td width='32%'>&nbsp;<%=GetSize(0,"../data")%> 　</td>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td>管理目录占用空间</td>
    <td>&nbsp;<%=GetSize(0,"../"&YxBBs.BBSSetting(2)&"")%></td>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td>图片目录占用空间</td>
    <td>&nbsp;<%=GetSize(0,"../images")%>　</td>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td>皮肤目录占用空间</td>
    <td>&nbsp;<%=GetSize(0,"../skins")%>　</td>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td>上传文件占用空间</td>
    <td>&nbsp;<%=GetSize(0,"../UploadFile")%>　</td>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td>Inc 目录占用空间</td>
    <td>&nbsp;<%=GetSize(0,"../inc")%>　</td>
  </tr>
   <tr bgcolor="#DEDEDE">
    <td>论坛占用空间总计</td>
    <td><b>&nbsp;<%=GetSize(0,"../")%></b>　</td>
  </tr></table>
  <% end if %>
<br><table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class=tableBorder>
  <tr>
    <th height="28" colspan="2">服务器的有关参数</th>
  </tr>
  <tr bgcolor="#dedede">
    <td width="17%">&nbsp;服务器名：</td>
    <td width="32%" bgcolor="#dedede">&nbsp;
        <%response.write Request.ServerVariables("SERVER_NAME")%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器IP：</td>
    <td>&nbsp;
        <%response.write Request.ServerVariables("LOCAL_ADDR")%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器端口：</td>
    <td>&nbsp;
        <%response.write Request.ServerVariables("SERVER_PORT")%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器时间：</td>
    <td>&nbsp;
        <%response.write now%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器IIS版本：</td>
    <td>&nbsp;
        <%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器操作系统：</td>
    <td>&nbsp;
        <%if Request.ServerVariables("OS")="" then
	response.write "Windows 2003"
	else
	response.write Request.ServerVariables("OS")
	end if%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;脚本超时时间：</td>
    <td>&nbsp;
        <%response.write Server.ScriptTimeout%>
    秒</td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;站点物理路径：</td>
    <td>&nbsp;
        <%response.write Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器CPU数量：</td>
    <td>&nbsp;
        <%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
    个</td>
  </tr>
  <tr bgcolor="#dedede">
    <td>&nbsp;服务器解译引擎：</td>
    <td>&nbsp;
        <%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr></table><br>
  <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class=tableBorder>
  <tr><th  width='50%' height="26" colspan=2>组件支持有关参数</th>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td width="17%">数据库(ADO)支持：</td>
    <td width="32%">&nbsp;
        <%if object_install("adodb.connection")=false then%>
        <font color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
    <% end if %></td>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td>&nbsp;FSO文本读写：</td>
    <td>&nbsp;
        <%if object_install("scripting.filesystemobject")=false then
	Session(YxBBs.CacheName&"fso")="no"%>
        <font color=red><b>×</b></font> （不支持）
        <% else
	Session(YxBBs.CacheName&"fso")="" %>
        <b>√</b> （支持）
    <% end if %></td>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td height="30">&nbsp;Stream文件流：</td>
    <td height="30">&nbsp;
        <%if object_install("Adodb.Stream")=false then%>
        <font color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
    <% end if %></td>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td>&nbsp;Jmail组件支持：</td>
    <td>&nbsp;
        <%If object_install("JMail.SMTPMail")=false Then%>
        <font color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
    <% end if %></td>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td>&nbsp;AspJpeg组件支持：</td>
    <td>&nbsp;
        <%If object_install("Persits.Jpeg")=false Then%>
        <font Color=red><b>×</b></font> （可能导致不能使用上传水印的功能）
        <% else %>
        <b>√</b> （支持）
    <% end if %></td>
  </tr>

</table>
<%
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
%>
<%end if%>

<%if Request("action")="setadv" then%> 

<form method=POST action=?action=setadvok>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="98%">
  <tr><th colspan=2 height="28">广告管理</th></tr>
  <tr class=td2 bgcolor="#CCCCCC">
  <td width="40%"  valign="top">
    <p style="line-height: 150%; margin: 4">
	<span style="font-weight: 400">论坛已有广告的显示效果：</span></td>
    <td width="60%">
    <p style="line-height: 150%; margin: 4">
	<span style="font-weight: 400">论坛已有广告的代码：<br>清空代码即删除广告。</span></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 bgcolor=#DEDEDE><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="#d7d7d7" colspan="2" height="28">
    　</td>
  </tr>
  <tr bgcolor="#DEDEDE">
    <td width="40%" valign="top" class=td2>
    <p style="line-height: 150%; margin: 4"><span style="font-weight: 400">增加广告：</span></td>
    <td width="60%">
    <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>
    <td width="100%" bgcolor="#CCCCCC" colspan="2" height="35" align="center">
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr>
</table></div>
</form>
<%end if%> 

<%if Request("action")="setadvok" then
dim adv_num,ad_msg
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}",""))
openfile.close
set fso1=nothing
adv_num=0
for ad_i=1 to ad_num+1
ad_tmp=replace(request.form("ad_v"&ad_i&""),"'","")
if trim(ad_tmp)<>"" or isnull(ad_tmp)then
adv_num=adv_num+1
ad_msg=ad_msg&"b["&adv_num&"].under ='"&ad_tmp&"'"&vbcrlf
end if
next
dim objFSO,objname
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objname=objFSO.CreateTextFile(Server.MapPath("../inc/ads.js"),True)
objname.Write"<!--"&vbcrlf&"a = "&adv_num&";if(a==0){a=1}"&vbcrlf&"var slump = Math.random();"&vbcrlf&"var talet = Math.round(slump * (a-1))+1;"&vbcrlf&"function create() { "&vbcrlf&"this.under = '' "&vbcrlf&"}"&vbcrlf&"b = new Array() "&vbcrlf&"for(var i=1; i<=a; i++) { b[i] = new create() } "&vbcrlf&ad_msg&"var visa = """";"&vbcrlf&"document.write(b[talet].under); "&vbcrlf&"//-->"
objname.close
set objfso=nothing
response.redirect"Admin.Asp?Action=setadv"
end if%>

<%
if Request("action")="addadmin" then
Dim Password,UserName,UserID
AdminName=Request.form("AdminName")
Password=Request.form("Password")
UserName=Request.form("UserName")

if AdminName="" or UserName="" then
	Call GoBack("","请输入前台或后台登陆名称！")	

end if

if Password="" then
	Call GoBack("","请输入后台密码！")	
else
 Password=Md5(Password)
end if

set rs=Conn.execute("Select ID from YX_User where Name='"&UserName&"'")
if rs.eof or rs.bof then
	Call GoBack("","无效的注册用户")
else
	UserID=rs(0)
end if
set Rs=Conn.execute("select Name from YX_Admin where Name='"&AdminName&"'")
if not (rs.eof and rs.bof) then
	Call GoBack("","此用户已存在！请使用其他名称！")

end if
dim GradeNum,GradeName,GradePic
set Rs=Conn.Execute("select GradeNum,GradeName,GradePic from YX_UserGrade where GradeID=1")
GradeNum=Rs(0)
GradeName=rs(1)
GradePic=rs(2)
set rs=nothing

Conn.execute("Update YX_User set ClassID=1,GradeNum="&GradeNum&",GradeName='"&GradeName&"',GradePic='"&GradePic&"' where ID="&UserID)
Conn.execute("Insert into YX_Admin (Name,[Password],UserName) values('"&AdminName&"','"&Password&"','"&UserName&"')")
Call Suc("","恭喜您！添加成功！","Admin.Asp")
end if
%>
<%
if Request("action")="addadmin1" then%>
 <form action="?action=addadmin" method=post>
	<table cellpadding=6 cellspacing=1 border=0 width=95% bgcolor="#FFFFFF" align="center">
	<tr>
	<th colspan=2>管 理 员 添 加</th></tr> 
 		<tr bgcolor=#d7d7d7>
		<td width=40%>后台登陆名称</td>		
		<td width=60%>
		<input name="AdminName" size="30"></td></tr><tr bgcolor=#d7d7d7>
		<td>后台登陆密码</td>		
		<td><input type=password name="Password" size="30"></td></tr><tr bgcolor=#d7d7d7>
		<td>前台用户名称</td>		
		<td><input type="text" name="UserName" size="30"></td>
		</tr><tr>
		<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
		<input type="submit" value="添 加" name="B1"></td></tr>
	</table>
</form>
<%end if%>

<%
if Request("action")="editadmin" then
Dim ID,Sql
AdminName=Request.form("AdminName")
Password=Request.form("Password")
ID=Request.form("ID")

if ID="" or not isNumeric(ID) then
	Call GoBack("","参数错误！")	
end if

if AdminName="" then
	Call GoBack("","请输入后台登录名称！")	
end if

set rs=server.createobject("adodb.recordset")
sql="Select * from YX_Admin where ID="&ID
rs.open sql,conn,1,3
if rs.eof or rs.bof then
	Call GoBack("","没有此用户！")	
else