admin_sys.asp

文章管理系统,生成静态网页 .

<!--#include file=setup.asp-->
<!--#include file=head.asp-->
<!--#include file=admin_cookie.asp-->
<!--#include file=conn.asp-->
<!--#include file=include.asp-->
<!--#include file=md5.asp-->
<%
if request.form("xgzl")<>"" then
webtitle1=server.htmlencode(trim(request("webtitle1")))
path1=server.htmlencode(trim(request("path1")))

p="http://"&request.servervariables("server_name")&request.servervariables("url")
paths=left(p,(len(p)-14))

if webtitle="" then webtitle="驰志网络文章系统"
if path1="" then path1=paths 
tjtime1=server.htmlencode(trim(request("tjtime1")))
if tjtime1="" then tjtime1="3600"
if not isnumeric(tjtime1) then err("统计时间必须是数字")

set conn=server.createobject("adodb.connection")
conn.open connstr
conn.execute("update config set webtitle='"&webtitle1&"',path='"&path1&"'")
conn.close
ok1("你已经修改完成")
response.end
end if
%>
<%
if request.form("xgmm")<>"" then
superadmin2=server.htmlencode(trim(request("superadmin2")))
superpass3=server.htmlencode(trim(request("superpass3")))
superpass4=server.htmlencode(trim(request("superpass4")))

if superadmin2="" or superpass3="" or superpass4="" then err("必填项目不能为空！")
if superpass3<>superpass4 then err("密码不匹配")
supera=md5(superpass3)

set conn=server.createobject("adodb.connection")
conn.open connstr
conn.execute("update config set  superadmin='"&superadmin2&"',superpass='"&supera&"' ")
conn.close
response.cookies("superadmin")=""
response.cookies("superpass")=""
ok1("修改成功，重新登陆")

response.end
end if
%>
<table width=90% align=center><tr><td bgcolor=#FFFFFF>
<br><br>
<form method=post action=<%=self%>>
<table width=90% align=center cellpadding=3 cellspacing=1 bgcolor=#000000><tr><td bgcolor=#FFFFFF colspan=2 align=center><b><font size=4>系统参数</b></font></tr>
<tr><td bgcolor=#FFFFFF width=30%>网站标题：<td bgcolor=#FFFFFF><input class="inpute" value=<%=webtitle%> name=webtitle1 onclick="this.select(-1)">
<tr><td bgcolor=#FFFFFF valign=top>安装路径：<td bgcolor=#FFFFFF><input onclick="this.select(-1)" name=path1 value=<%=path%> class="inputf" size=40>&nbsp;&nbsp;不知道请留空,系统会自动生成！</td></tr>
<tr><td bgcolor=#FFFFFF colspan=2 align=center><input name=xgzl type=submit class=input1 value="修改参数">&nbsp&nbsp<input class=input1 type=reset value="从新填写">
<tr><td colspan=2 bgcolor=#FFFFFF align=center><b><font size=4>修改管理员及密码</font></b></tr>
<form method=post action=<%=self%>>
<tr><td bgcolor=#FFFFFF width=30%>管理员:<td bgcolor=#FFFFFF><input class=inpute name=superadmin2 value=<%=superadmin%>>
<tr><td bgcolor=#FFFFFF>密码：<td bgcolor=#FFFFFF><input class=inpute name=superpass3 type=password>
<tr><td bgcolor=#FFFFFF>重复密码：<td bgcolor=#FFFFFF><input class=inpute name=superpass4 type=password>
<tr><td bgcolor=#FFFFFF colspan=2 align=center><input name=xgmm type=submit class=input1 value="修改账号"> &nbsp&nbsp<input type=reset class=input1 value="从新填写">
</table>
<br></table>