📄 admin.asp
字号:
<!--#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 cellpadding=6 cellspacing=1 border=0 width=95% bgcolor="#FFFFFF" align="center">
<tr>
<td bgcolor=#e7e7e7 valign=middle colspan=4 align=center>
<font color="#800000"><b>管 理 员 信 息</b></font></td></tr>
<tr>
<td bgcolor=#d7d7d7 width="25%" align="center"><b><font color="#000077">用户名</font></b></td>
<td bgcolor=#d7d7d7 width="25%" align="center"><b><font color="#000077">
上次登录时间</font></b></td>
<td bgcolor=#d7d7d7 width="25%" align="center"><b><font color="#000077">
上次登录IP</font></b></td>
<td bgcolor=#d7d7d7 width="25%" align="center"><b><font color="#000077">操作</font></b></td>
</tr>
<%
Set Rs=Conn.execute("select ID,Name,LastLoginTime,LastLoginIP from YX_Admin")
while not rs.eof
%>
<tr>
<td bgcolor=#d7d7d7 width="25%"><A HREF="?action=editadmin1&ID=<%=rs("ID")%>"><%=rs("Name")%></A></td>
<td bgcolor=#d7d7d7 width="25%"><%=rs("LastLoginTime")%></td>
<td bgcolor=#d7d7d7 width="25%"><%=rs("LastLoginIP")%></td>
<td bgcolor=#d7d7d7 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" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#CCCCCC">
<td height="28" colspan="2"><b>论坛系统信息</b></td>
</tr>
<tr bgcolor="#DEDEDE">
<td width="50%">总帖数：<font color=blue><%=YxBBs.AllEssayNum%></font></td>
<td width="50%">主题数：<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>
<tr bgcolor="#DEDEDE">
<td>论坛版本：YxBBs v1.4 </td>
<td>【YxBBs 官方站】论坛 <font color=red>www.YimXu.Com</font> </td>
</tr>
</table>
<br>
<script language="javascript" type="text/javascript" SRC="http://www.yimxu.com/js/ver.js"></script>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#CCCCCC">
<td height="28" colspan="3">服务器的有关参数</td>
</tr>
<tr bgcolor="#dedede">
<td width="17%"> 服务器名：</td>
<td width="32%" bgcolor="#dedede">
<%response.write Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器IP：</td>
<td>
<%response.write Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器端口：</td>
<td>
<%response.write Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器时间：</td>
<td>
<%response.write now%></td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器IIS版本：</td>
<td>
<%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器操作系统：</td>
<td>
<%if Request.ServerVariables("OS")="" then
response.write "Windows 2003"
else
response.write Request.ServerVariables("OS")
end if%></td>
</tr>
<tr bgcolor="#dedede">
<td> 脚本超时时间：</td>
<td>
<%response.write Server.ScriptTimeout%>
秒</td>
</tr>
<tr bgcolor="#dedede">
<td> 站点物理路径：</td>
<td>
<%response.write Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器CPU数量：</td>
<td>
<%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
个</td>
</tr>
<tr bgcolor="#dedede">
<td> 服务器解译引擎：</td>
<td>
<%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr bgcolor="#CCCCCC"><td width='50%' height="26" colspan=2>组件支持有关参数</td>
</tr>
<tr bgcolor="#DEDEDE">
<td width="25%">数据库(ADO)支持：</td>
<td width="25%">
<%if object_install("adodb.connection")=false then%>
<font color=red><b>×</b></font> （不支持）
<% else %>
<b>√</b> （支持）
<% end if %></td>
</tr>
<tr bgcolor="#DEDEDE">
<td> FSO文本读写：</td>
<td>
<%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> Stream文件流：</td>
<td>
<%if object_install("Adodb.Stream")=false then%>
<font color=red><b>×</b></font> （不支持）
<% else %>
<b>√</b> （支持）
<% end if %></td>
</tr>
<tr bgcolor="#DEDEDE">
<td> Jmail组件支持：</td>
<td>
<%If object_install("JMail.SMTPMail")=false Then%>
<font color=red><b>×</b></font> （不支持）
<% else %>
<b>√</b> （支持）
<% end if %></td>
</tr>
<tr bgcolor="#DEDEDE">
<td> CDONTS组件支持：</td>
<td>
<%If object_install("CDONTS.NewMail")=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" bordercolor="#FFFFFF" width="98%">
<tr class=td2>
<td width="40%" bgcolor="#CCCCCC" valign="top">
<p style="line-height: 150%; margin: 4"><font color="#000000">
<span style="font-weight: 400">论坛已有广告的显示效果：</span></font></td>
<td width="60%" bgcolor="#CCCCCC">
<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 bgcolor=#DEDEDE valign=top><p style='line-height: 150%; margin: 4'>"&ad_tmp&"</td><td bgcolor=#DEDEDE><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>
<td width="40%" bgcolor="#DEDEDE" 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="#DEDEDE">
<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="" then
Call GoBack("","请输入后台登陆名称！")
end if
if Password="" then
Call GoBack("","请输入后台密码！")
else
Password=Md5(Password)
end if
if UserName="" then
Call GoBack("","请输入前台用户名称！")
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>
<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
<font color="#800000"><b>管 理 员 添 加</b></font></td></tr>
<tr>
<td bgcolor=#d7d7d7 width=40%><b><font color="#000077">后台登陆名称 </font></b></td>
<td bgcolor=#d7d7d7 width=60%>
<input name="AdminName" size="30"> </td>
</tr><tr>
<td bgcolor=#d7d7d7><b><font color="#000077">后台登陆密码</font></b></td>
<td bgcolor=#d7d7d7>
<input type=password name="Password" size="30"></td>
</tr><tr>
<td bgcolor=#d7d7d7><b><font color="#000077">前台用户名称</font></b></td>
<td bgcolor=#d7d7d7>
<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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -