⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_msg_option.asp

📁 基本功能: 1.网友留言 2.留言可以选择悄悄话 3.管理员后台管理留言 4.可有多个管理员 5.20个留言形象 6.可设置每页显示最大留言数
💻 ASP
字号:
<%@language=vbscript%>
<%if not session("checked")="yes" then 
response.Redirect "error.htm"  
else
%>
<!--#include file="conn1.asp"-->
<%
set op=server.createobject("adodb.recordset")
sq_1="select * from msg_option order by id desc"
op.open sq_1,conn,1,1
%>

<%
dim pn
dim d_page
d_page=3 '
op.pagesize=d_page
if request.querystring("pn")="" or request.querystring("pn")=0 then
pn=1
else
pn=request.querystring("pn")
op.absolutepage=trim(request.querystring("pn"))
end if
%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言本设置</title>
<style type="text/css">
<!--
body,td,th {font-size: 12px;}
a {font-size: 12px;}
a:link {text-decoration: none;}
a:visited {text-decoration: none;}
a:hover {text-decoration: none;}
a:active {text-decoration: none;}
.style5 {color: #FF0000}
.style6 {font-size: 12px}
-->
</style>

</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" text="#25437C" link="#25437C" alink="#25437C" vlink="#25437C">


<div align="center">
	 <table cellpadding="0" cellspacing="0" width="313" height="12">
		<tr>
			<td width="313" height="12">
			<p align="center"><b>设置页面<br>
			<br>
			</b>[<a href="admin.asp">管理员页面</a>]</td>
		</tr>
	</table>
	<table cellpadding="0" cellspacing="0" width="768" height="97">
		<tr>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/top_left.gif" width="10" height="10"></td>
			<td height="10" valign="top" width="748" background="image/top.gif" style="font-size: 12px">
			</td>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/top_right.gif" width="10" height="10"></td>
		</tr>
		<tr>
			<td height="77" valign="top" width="10" background="image/mid_left.gif" style="font-size: 12px">
			 </td>
			<td height="77" valign="top" width="748" bgcolor="#F3F3FF" style="font-size: 12px">
			<div align="center">
				<br>
 <table cellpadding="0" cellspacing="0" width="340" height="12" >
					<tr>
						<td height="12">
						<form method="POST" action="option.asp">
							<p><b>[网站资料]</b></p>
							<p>网站名称:<input type="text" name="web_name" size="20" value="<%=op("web_name")%>"><font color="#FF0000">*</font></p>
							<p>网站地址:<input type="text" name="web_address" size="20" value="<%=op("web_address")%>"><font color="#FF0000">*</font></p>
							<p>网站LOGO地址:<input type="text" name="web_logo" size="20" value="<%=op("web_logo")%>">类型为图片</p>
							<p>网站广告地址:<input type="text" name="web_ad" size="20"value="<%=op("web_ad")%>">类型为Flash动画</p>
							<p><b>[留言本设置]</b></p>
							<p>留言本滚动字幕:<input type="text" name="zm" size="20" value="<%=op("zm")%>"></p>
							<p>每页显示留言数:<input type="text" name="page_num" size="20" value="<%=op("page_num")%>"></p>
							<p>留言背景颜色:&nbsp; <input type="text" name="bg_color" size="20" value="<%=op("bg_color")%>"></p>
							<table cellpadding="0" cellspacing="0" width="266" style="border:1px solid #000000; position: absolute; left: 581px; top: 417px; width: 39px; height: 14px">
								<tr>
									<td height="12"><font face="宋体" color="<%=op("bg_color")%>">███</font></td>
								</tr>
							</table>
							<p>留言本字体颜色:<input type="text" name="text_color" size="20" value="<%=op("text_color")%>">&nbsp;
							<font color="<%=op("text_color")%>">例</font></p>
							<p>连接字体颜色:&nbsp;
							<input type="text" name="link_color" size="20" value="<%=op("link_color")%>">&nbsp; 
							<font color="<%=op("link_color")%>">例</font></p>
							<p>已访问连接颜色:<input type="text" name="vlink_color" size="20" value="<%=op("vlink_color")%>">&nbsp; 
							<font color="<%=op("vlink_color")%>">例</font></p>
							<p>当前连接颜色:&nbsp;
							<input type="text" name="alink_color" size="20" value="<%=op("alink_color")%>">&nbsp; 
							<font color="<%=op("alink_color")%>">例</font></p>
							<p>悄悄话字体颜色:<input type="text" name="qqh_color" size="20" value="<%=op("qqh_color")%>">&nbsp; 
							<font color="<%=op("qqh_color")%>">例</font></p>
							<p>回复字体颜色:&nbsp;
							<input type="text" name="reply_color" size="20" value="<%=op("reply_color")%>">&nbsp; 
							<font color="<%=op("reply_color")%>">例</font></p>
							<p align="center"><input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value="重置" name="B2"></p>
						</form>
						<p align="center">修改时,只需替换掉需要修改项:-)</td>
					</tr>
				</table>
				<p> </div>
			</td>
			<td height="77" valign="top" width="10" background="image/mid_right.gif" style="font-size: 12px">
			 </td>
		</tr>
		<tr>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/bottom_left.gif" width="10" height="10"></td>
			<td height="10" valign="top" width="748" background="image/bottom.gif" style="font-size: 12px">
			</td>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/bottom_right.gif" width="10" height="10"></td>
		</tr>
	</table>

<div align="center">


<div align="center">
	<br>
	<b>历史设置<br>
	</b>必须保留至少1条历史记录<table cellpadding="0" cellspacing="0" width="768" height="97">
		<!-- MSTableType="nolayout" -->
		<tr>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/top_left.gif" width="10" height="10"></td>
			<td height="10" valign="top" width="748" background="image/top.gif" style="font-size: 12px">
			</td>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/top_right.gif" width="10" height="10"></td>
		</tr>
		<tr>
			<td height="77" valign="top" width="10" background="image/mid_left.gif" style="font-size: 12px">
			 </td>
			<td height="77" valign="middle" width="748" bgcolor="#F3F3FF" style="font-size: 12px">
			<div align="center">
				<%do while not op.eof and d_page>0 %>
				<table cellpadding="0" cellspacing="0" width="598" height="217" style="word-break:break-all">
					<tr>
						<td height="12">
						+-------------------------------------------------------------------------------------------------+</td>
					</tr>
					<tr>
						<td height="193" valign="top">
						<p align="left"><b>[时间]</b>:<%=op("date")%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
						[<a href="h_del.asp?id=<%=op("id")%>"onClick="return confirm('要删除它吗?')">删除</a>]</p>
						<p><b>[网站资料]</b><br>
						<br>
						网站名称:<%=op("web_name")%><br>
						网站地址:<%=op("web_address")%><br>
						网站LOGO地址:<%=op("web_logo")%><br>
						网站广告地址:<%=op("web_ad")%><br>
						<br>
						<b>[留言本设置]</b><br>
						<br>
						留言本滚动字幕:<%=op("zm")%><br>
						每页显示留言数:<%=op("page_num")%><br>
						留言背景颜色:<font face="宋体" color="<%=op("bg_color")%>"><%=op("bg_color")%>███</font><br>
						留言本字体颜色:<font color="<%=op("text_color")%>"><%=op("text_color")%></font><br>
						连接字体颜色:<font color="<%=op("link_color")%>"><%=op("link_color")%></font><br>
						已访问连接颜色:<font color="<%=op("vlink_color")%>"><%=op("vlink_color")%></font><br>
						当前连接颜色:<font color="<%=op("alink_color")%>"><%=op("alink_color")%></font><br>
						悄悄话字体颜色:<font color="<%=op("qqh_color")%>"><%=op("qqh_color")%></font><br>
						回复字体颜色:<font color="<%=op("reply_color")%>"><%=op("reply_color")%></font></td>
					</tr>
					<tr>
						<td height="12" valign="top">
						+-------------------------------------------------------------------------------------------------+</td>
					</tr>
				</table>
				<% d_page=d_page-1
				op.movenext
				loop	%>
				<table cellpadding="0" cellspacing="0" width="599" height="15">
					<!-- MSTableType="nolayout" -->
					<tr>
						<td height="15">
						<p align="right">第<font color="#ff0000"><%=pn%></font>页 <%
                            for p=1 to op.pagecount
                            response.write ("[")
                            response.write "<a href=admin_msg_option.asp?pn="&p&">"&p&"</a>"
                            response.write ("]&nbsp;")
                            next
                          %>共<%=op.pagecount%>页</td>
					</tr>
				</table>
				</div>
			</td>
			<td height="77" valign="top" width="10" background="image/mid_right.gif" style="font-size: 12px">
			 </td>
		</tr>
		<tr>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/bottom_left.gif" width="10" height="10"></td>
			<td height="10" valign="top" width="748" background="image/bottom.gif" style="font-size: 12px">
			</td>
			<td height="10" valign="top" width="10" style="font-size: 12px">
			<img border="0" src="image/bottom_right.gif" width="10" height="10"></td>
		</tr>
	</table>
</div>
	<table cellpadding="0" cellspacing="0" width="348" height="87">
		<!-- MSTableType="nolayout" -->
		<tr>
			<td height="12" valign="top" width="348" colspan="3" style="font-size: 12px"></td>
		</tr>
		<tr>
			<td height="63" valign="top" width="48" style="font-size: 12px"> </td>
			<td height="63" valign="top" width="251" style="font-size: 12px">
			<p align="center"><font face="宋体" size="2">倾听留言本V1.2<br>
			</font>留言本及源程序由 <span lang="en">
			<font face="宋体" size="2" color="#FF0000"><a href="QQ:55572687">
			<font color="#FF0000">冰中使者</font></a></font><a href="QQ:55572687"><font face="宋体" color="#FF0000" size="3">&reg;</font></a><font face="宋体" size="4" color="#FF0000">
			</font><font face="宋体" size="2">制作<br>
			</font></span><font face="宋体" size="2">
			[<a target="_blank" href="http://www.qtice.com">http://www.qtice.com</a>]<br>
 </font></td>
			<td height="63" valign="top" width="49" style="font-size: 12px"> </td>
		</tr>
		<tr>
			<td height="12" valign="top" width="348" colspan="3" style="font-size: 12px"></td>
		</tr>
	</table>
</div>

</div>


<p> </p>


</body>
<%op.close
set data=nothing
conn.close
set conn=nothing 
%>

</html>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -