📄 admin_index.asp
字号:
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
call admin_login_main()
end if
end if
end sub
sub admin_login_main()
%>
<html>
<head>
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
<meta name=keywords content='岩岩,红雨同学录,bty'>
<title><%=txl_info(0)%>--<%=stats%></title>
<!--#include file="inc/admin_css.asp"-->
</head>
<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0 marginheight=0 marginwidth=0>
<p> </p>
<p> </p>
<form action="admin_index.asp?action=admin_login&reaction=chklogin" method=post>
<table style="width:65%" border=0 cellspacing=1 cellpadding=3 align=center class=tableBorder>
<tr>
<th valign=middle colspan=2 height=25><%=txl_info(0)%>管理登陆</th></tr>
<tr>
<td valign=middle class=txlrow>请输入您的用户名</td>
<td valign=middle class=txlrow><INPUT name=username type=text></td></tr>
<tr>
<td valign=middle class=txlrow>请输入您的密码</font></td>
<td valign=middle class=txlrow><INPUT name=password type=password></td></tr>
<tr>
<td valign=middle class=txlrow>请输入您的附加码</td>
<td valign=middle class=txlrow><INPUT name=verifycode type=text> 请在附加码框输入 <b><span style="background-color: #FFFFFF"><font color=#000000><%=session("verifycode")%></font></span></b></td></tr>
<tr>
<td valign=middle colspan=2 align=center class=txlRow><input type=submit name=submit value="登 陆"></td></tr></table></form>
</body>
</html>
<%
end sub
sub chklogin()
username=trim(replace(request("username"),"'",""))
password=md5(trim(replace(request("password"),"'","")))
if request("verifycode")="" then
errmsg=errmsg+"<br>"+"<li>请返回输入确认码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr=true
elseif session("verifycode")="" then
errmsg=errmsg+"<br>"+"<li>请不要重复提交，如需重新登陆请返回登陆页面。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr=true
elseif session("verifycode")<>trim(request("verifycode")) then
errmsg=errmsg+"<br>"+"<li>您输入的确认码和系统产生的不一致，请重新输入。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
founderr=true
end if
session("verifycode")=""
if username="" or password="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入您的用户名或密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
end if
if founderr then exit sub
ip=Request.ServerVariables("REMOTE_ADDR")
set rs=conn.execute("select * from admin where username='"&username&"' and adduser='"&membername&"'")
if rs.eof and rs.bof then
rs.close
set rs=nothing
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a href=admin_login.asp>重新输入</a>您的密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
exit sub
else
if trim(rs("password"))<>password then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您输入的用户名和密码不正确或者您不是系统管理员。<br><li>请<a href=admin_login.asp>重新输入</a>您的密码。<li><b>返回后请刷新登陆页面后重新输入正确的信息。</b>"
exit sub
else
session("flag")=rs("flag")
session.timeout=45
conn.execute("update admin set LastLogin=Now(),LastLoginIP='"&ip&"' where username='"&username&"'")
rs.close
set rs=nothing
response.write "<script>location.href='admin_index.asp'</script>"
end if
end if
end sub
sub admin_main()
%>
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<%
if not supermaster or session("flag")="" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。"
call txl_error()
else
Dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
%>
<table cellpadding=3 cellspacing=1 border=0 width=95% align=center>
<tr>
<td width="100%" valign=top>
<p> <%=Version%><br><BR>
</p>
在这里，您可以控制你所有的同学录设置。请在此页的左侧选择您要进行管理的链接。<br>
友情提示：在管理之前，请仔细阅读管理说明，请谨慎使用你的管理权限。
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>同学录信息统计</th><tr>
<tr>
<td width="50%" class="txlRow" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" class="txlRowHighlight">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="50%" class="txlRow" height=23>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="txlRowHighlight">数据库地址：</td>
</tr>
<tr>
<td width="50%" class="txlRow" height=23>FSO文本读写：<%If Not IsObjInstalled(theInstalledObjects(9)) Then%><font color="#ce0000"><b>×</b></font><%else%><b>√</b><%end if%></td>
<td width="50%" class="txlRowHighlight">数据库使用：<%If Not IsObjInstalled(theInstalledObjects(10)) Then%><font color="#ce0000"><b>×</b></font><%else%><b>√</b><%end if%></td>
</tr>
<tr>
<td width="50%" class="txlRow" height=23>Jmail组件支持：<%If Not IsObjInstalled(theInstalledObjects(13)) Then%><font color="#ce0000"><b>×</b></font><%else%><b>√</b><%end if%></td>
<td width="50%" class="txlRowHighlight">CDONTS组件支持：<%If Not IsObjInstalled(theInstalledObjects(14)) Then%><font color="#ce0000"><b>×</b></font><%else%><b>√</b><%end if%></td>
</tr>
</table>
<p></p>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr>
<th class="tableHeaderText" colspan=2 height=25>同学录管理快捷方式</th>
</tr>
<tr>
<td width="20%" class="txlRow" height=30>快捷功能链接</td>
<td width="80%" class="txlRowHighlight"> <a href=admin_user.asp><u>用户信息管理</U></a> | <a href=admin_skin.asp><u>默认模板选择</u></a></td>
</tr>
<tr>
<td width="20%" class="txlRow" height=30>快速更新数据</td>
<td width="80%" class="txlRowHighlight"> <a href=admin_update.asp?action=updateuser><u>更新用户数据</u></a> | <a href=admin_update.asp?action=updateall><u>更新同学录数据</u></a></td>
</tr>
</table>
<script language='javascript'> function jumpto(url) { if (url != '') { window.open(url); } } </script>
<p></p>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<tr><th class="tableHeaderText" colspan=2 height=25>* 版权声明 *</th><tr>
<tr>
<td width="20%" class="txlRow" height=23>同学录修改</td>
<td width="80%" class="txlRowHighlight"> <b>岩岩</b> （QQ: 86890361，qa_90@hotmail.com）
</td>
</tr>
<tr>
<td width="20%" class="txlRow" height=23>官方网站</td>
<td width="80%" class="txlRowHighlight"> 岩岩电子 （<a href="http://www.hrbyydz.com">http://www.hrbyydz.com</a>）</td>
</tr>
<tr>
<td width="20%" class="txlRow" height=23>官方论坛</td>
<td width="80%" class="txlRowHighlight"> 岩岩电子论坛 （<a href="http://www.hrbyydz.com/bbs">http://www.hrbyydz.com/bbs</a>）</td>
</tr>
<tr>
<td width="20%" class="txlRow" height=23>版权声明</td>
<td width="80%" class="txlRowHighlight"> 岩岩电子</td>
</tr>
</table>
<table align=center><BR>
Copyright (c) 2004-2008 <a href=http://www.hrbyydz.com>岩岩电子</a>. All Rights Reserved .<BR><BR><BR>
</td>
</tr>
</table>
<%
end if
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
sub admin_head()
%>
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#D6DFF7">
<table width="100%" align=center cellpadding=0 cellspacing=0 border=0>
<tr>
<td height="23" class="txlHeaderBackgroundAlternate" valign=middle id=TableTitleLink>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -