📄 admin_siteconfig.asp
字号:
<!--#include file="mdb.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin_login.asp';</script>")
Response.End
End if
dim pw1,pw2,pw3,pw4,pw5,pw6,pw7,pw8,pw9,pw10,pw11,pw12,pw13,pw14,pw15,action
dim site,siteurl,email,copyright,login,adminname,classlist,classtitle,classkey,classmemo,array,stats
if Session("level")<2 then
Call outcome("你的权限不足")
Response.End
End if
'-------------------
'sql="select * from O3888_website order by id"
'set rs=conn.execute(sql)
'rs.movefirst
'while not rs.eof
'conn.execute "update O3888_website set color='#000000' where id="&rs("id")
'rs.movenext
'wend
'rs.close
'set rs=nothing
'-------------------
sql="select * from O3888_title"
set rs=conn.execute(sql)
site=rs("site")
siteurl=rs("siteurl")
email=rs("email")
dlogo=rs("dlogo")
Copyright=rs("Copyright")
array=rs("array")
stats=rs("stats")
login=rs("login")
adurl=rs("adurl")
classlist=rs("classlist")
classtitle=rs("classtitle")
classkey=rs("classkey")
classmemo=rs("classmemo")
rs.close
set rs=nothing
weburl=Session("web")
if request("action")="doit" then
if request("pw1")="" then
Call outcome("请输入新的网站名称")
Response.End
end if
if request("pw2")="" then
Call outcome("请输入新的网站地址")
Response.End
end if
if request("pw3")="" then
Call outcome("请输入新的站长邮箱")
Response.End
end if
if request("pw4")="" then
Call outcome("请输入新的版权信息")
Response.End
end if
if request("pw5")="" then
Call outcome("请输入新的新站登陆状态")
Response.End
end if
if request("pw6")="" then
Call outcome("请输入新的网站站标")
Response.End
end if
if request("pw8")="" then
Call outcome("请输入新的放置分类目录")
Response.End
end if
if request("pw9")="" then
Call outcome("请输入新的分类命名")
Response.End
end if
if request("pw10")="" then
Call outcome("请输入新的点击统计状态")
Response.End
end if
if request("pw11")="" then
Call outcome("请输入新的网站目录")
Response.End
end if
if request("pw12")="" then
Call outcome("请输入新的广告目录")
Response.End
end if
if request("pw13")="" then
Call outcome("请输入新的分类排列方式")
Response.End
end if
if request("pw14")="" then
Call outcome("请输入新的分类默认关键词")
Response.End
end if
if request("pw15")="" then
Call outcome("请输入新的分类默认描述")
Response.End
end if
pw1=ReplaceBadChar(Trim(request("pw1")))
pw2=Trim(request("pw2"))
pw3=Trim(request("pw3"))
pw4=request("pw4")
pw5=Trim(request("pw5"))
pw6=Trim(request("pw6"))
pw8=Trim(request("pw8"))
pw9=Trim(request("pw9"))
pw10=Trim(request("pw10"))
pw11=Trim(request("pw11"))
pw12=Trim(request("pw12"))
pw13=Trim(request("pw13"))
pw14=Trim(request("pw14"))
pw15=Trim(request("pw15"))
set r=server.createobject("adodb.recordset")
r.open "select * from O3888_title",conn,1,3
if not r.eof then
r("site")=pw1
r("siteurl")=pw2
r("email")=pw3
r("Copyright")=pw4
r("login")=pw5
r("dlogo")=pw6
r("classlist")=pw8
r("classtitle")=pw9
r("stats")=pw10
r("weburl")=pw11
r("adurl")=pw12
r("array")=pw13
r("classkey")=pw14
r("classmemo")=pw15
r.update
r.close
set r=nothing
Call outcome("网站信息配置已成功更改")
Response.End
else
r.close
set r=nothing
Call outcome("无法完成请求")
Response.End
end if
end if
%>
<html>
<head>
<title>网站配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="b">
<tr>
<td align="center">网站信息配置</td>
</tr></table>
<table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" class="a">
<form action="Admin_SiteConfig.asp" method="post">
<tr>
<td width="20%">网站名称：</td>
<td width="80%"><input class="c" type="text" name="pw1" value='<%=site%>'> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td>网站地址：</td>
<td><input class="c" type="text" name="pw2" value='<%=siteurl%>'> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td>网站目录：</td>
<td><input class="c" type="text" name="pw11" value='<%=weburl%>'> <font color="#FF0000">*</font> 自动获取，无需手动修改，但需要提交保存。
</td>
</tr>
<tr>
<td>站长邮箱： </td>
<td><input class="c" type="text" name="pw3" value='<%=email%>'> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td>网站站标：</td>
<td><input class="c" type="text" name="pw6" value='<%=dlogo%>'> <font color="#FF0000">*</font> 格式：/images/dlogo.gif</td>
</tr>
<%
if array=0 then Response.Write "<input style='display:none' type='radio' name='pw13' value='0' checked><input style='display:none' type='radio' value='1' name='pw13'>"
if array=1 then Response.Write "<input style='display:none' type='radio' name='pw13' value='0'><input style='display:none' type='radio' value='1' name='pw13' checked>"
%>
<%
if stats=0 then Response.Write "<input style='display:none' type='radio' name='pw10' value='0' checked><input style='display:none' type='radio' value='1' name='pw10'><input style='display:none' type='radio' value='2' name='pw10'>"
if stats=1 then Response.Write "<input style='display:none' type='radio' name='pw10' value='0'><input style='display:none' type='radio' value='1' name='pw10' checked><input style='display:none' type='radio' value='2' name='pw10'>"
if stats=2 then Response.Write "<input style='display:none' type='radio' name='pw10' value='0'><input style='display:none' type='radio' value='1' name='pw10'><input style='display:none' type='radio' value='2' name='pw10' checked>"
%>
<%
if login=1 then Response.Write "<input style='display:none' type='radio' value='2' name='pw5'><input style='display:none' type='radio' name='pw5' value='1' checked><input style='display:none' type='radio' name='pw5' value='0'>"
if login=0 then Response.Write "<input style='display:none' type='radio' value='2' name='pw5'><input style='display:none' type='radio' name='pw5' value='1'><input style='display:none' type='radio' name='pw5' value='0' checked>"
if login=2 then Response.Write "<input style='display:none' type='radio' value='2' name='pw5' checked><input style='display:none' type='radio' name='pw5' value='1'><input style='display:none' type='radio' name='pw5' value='0'>"
%>
<input style='display:none' type="text" name="pw12" value='<%=adurl%>'><input style='display:none' type="text" name="pw8" value='<%=classlist%>'><input style='display:none' type="text" name="pw9" value='<%=classtitle%>'>
<tr>
<td>分类默认关键词：</td>
<td><textarea class="c" cols="60%" rows="4" name="pw14"><%=classkey%></textarea> <font color="#FF0000">*</font> 多个关键词用“,”隔开</td>
</tr>
<tr>
<td>分类默认描述：</td>
<td><textarea class="c" cols="60%" rows="4" name="pw15"><%=classmemo%></textarea> <font color="#FF0000">*</font> </td>
</tr>
<tr>
<td>网站版权信息：</td>
<td><textarea class="c" cols="60%" rows="6" name="pw4"><%=Copyright%></textarea> <font color="#FF0000">*</font> 支持html语言
</td>
</tr>
<tr>
<td> </td>
<td><input class="d" type="submit">
</td>
<input type="hidden" value="doit" name="action">
</form>
</tr>
<tr>
<td>说明：</td>
<td>1：修改后，请生成所有页面，方能显示最新网站信息。<br>2：带“<font color="#FF0000">*</font>”为必须填写的表单</td>
</tr>
<tr>
<td align="center" colspan="2">[<A href='http://www.03888.com/' target=_blank>03888网址大全</A>]</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -