gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\lyb\adminer.asp
<%@ language=VBScript %>
<!--#include file="setup.asp"-->
<%
if Request.cookies("admin") = "" then
message="*对不起，非法登陆！\n"
call error(""&message&"")
Response.end
end if
if Request("menu") = "setup" then
call setup()
else call index()
end if
sub index()
%>
<html><head><title><%=gbook_name%>--管理设置</title>
<link rel="stylesheet" href="images/gbook.css">
<script language="javascript" src="images/gbook.js"></script>
</head>
<!--#include file="inctop.asp"--><body topmargin=0>
<div align="center"><img src="./images/logo.jpg" width="759" height="110"> </div>
<div align="center"></div>
<table width=760 height="27" border=0 align="center" cellpadding=0 cellspacing=1 background="images/dh.gif" style="border: 1px solid #CCCCCC;">
<tr>
<td width="510" height="27"> <img src="images/arrow3.gif" align=absmiddle width="29" height="11">
您的位置：
<a href=index.asp>留言本首页</a> >> <a href=adminer.asp>管理设置</a> </td>
<td width="245"><DIV align=center>【<a href="index.asp">查看留言</a>】 【<a href="write.asp">签写留言</a>】</DIV></td>
</tr>
</table>
<table width="760" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td height="286" width="100%">
<form name="FORM" method="POST" action="adminer.asp">
<input type=hidden name=menu value=setup>
<table width="100%" border="0" cellspacing="1" cellpadding="4" align="center" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#99CCFF">
<tr bgcolor="#FFFFF0">
<td width="19%" align="center" nowrap bgcolor="#FFFFF1">留言本名称：</td>
<td width="81%">
<input type="text" name="gbook_name" size="20" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=gbook_name%>>
留言本1.0 版</td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" align="center" nowrap bgcolor="#FFFFF1">管理员口令：</td>
<td width="81%">
<input type="password" name="password" size="21" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=passwords%>>
</td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">网站名称：</td>
<td width="81%" height="12">
<input type="text" name="name" size="20" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=name%>>
江苏省铁富中学</td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">网站地址：</td>
<td width="81%" height="12">
<input type="text" name="url" size="20" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=url%>>
HTTP：//江苏省铁富中学</td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">留言内容大小限制：</td>
<td width="81%" height="12">
<input type="text" name="bodymax" size="6" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=bodymax%>> 字节内
</td>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">每页显示的留言数：</td>
<td width="81%" height="12">
<input type="text" name="pagesize" size="4" style="background-color:#ffffff; color:#8888AA; border: 1 double #B4B4B4" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value=<%=pagesize%>> (默认：10条)
</td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">您的IP：</td>
<td width="81%" height="12"> <%=Request.ServerVariables("REMOTE_ADDR")%>
(注意：提交后，您的IP会被记录！) </td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">上次提交IP：</td>
<td width="81%" height="12"> <%=setup_ip%> </td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">上次提交时间：</td>
<td width="81%" height="12"> <%=setup_time%> </td>
</tr>
<tr bgcolor="#FFFFF0">
<td width="19%" height="12" align="center" nowrap bgcolor="#FFFFF1">管理留言：</td>
<td width="81%" height="12"> <form name="managelyb_frm" method="post" action="managelyb.asp"><select size="6" name="D1" multiple style="border:1 solid"><option value="0">-- 选择需管理的留言主题 --</option>
<%
sql = "select id,zt from gbook"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,3
For i=1 to rs.recordcount
response.write "<option value=""" & rs(0) & """>" & rs(1) & "</option>"
rs.movenext
next
%>
</select><br><input type="button" name="ab1" value="查看" onclick="adminviewly()"> <input type="button" name="ab2" value="解锁" onclick="adminunlockly()"> <input type="button" name="ab3" value="锁定" onclick="adminlockly()"> <input type="button" name="ab4" value="删除" onclick="admindeletely()" accesskey="d"></td>
</tr>
<tr bgcolor="#FFFFF0">
<td colspan="2" align="center" nowrap>
<input type="submit" name="Submit" value="提 交" style="backgroud-color: #ffffff; border-bottom: 1px solid; border-left: 1px solid; border-right: 1px solid; border-top: 1px solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 50px">
<input type="reset" name="Submit2" value="重 置" style="backgroud-color: #ffffff; border-bottom: 1px solid; border-left: 1px solid; border-right: 1px solid; border-top: 1px solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 50px">
<input type="button" name="Submit3" value="退 出" onClick="window.location.href='login.asp?menu=logout';" style="backgroud-color: #ffffff; border-bottom: 1px solid; border-left: 1px solid; border-right: 1px solid; border-top: 1px solid; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 50px">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<table width=760 height="21" border=0 align="center" cellpadding=0 cellspacing=1 background="images/dh.gif" style="border: 1px solid #CCCCCC;">
<tr>
<td width="245" height="17">
<DIV align=center></DIV></td>
</tr>
</table>
<%
call htmlend()
Response.End
end sub
sub setup()
gbook_name=Server.htmlencode(Request.form("gbook_name"))
password=Request.form("password")
name=Server.htmlencode(Request.form("name"))
url=Request.form("url")
bodymax=Request.form("bodymax")
pagesize=Request.form("pagesize")
setup_ip=Request.ServerVariables("REMOTE_ADDR")
if gbook_name = "" then
message="*留言本名称不能为空！\n"
end if
if password = "" then
message=message&"管理员口令不能为空！\n"
end if
if name = "" then
message=message&"您的网站名称必须填写！\n"
end if
if url = "" then
message=message&"您的网站地址必须填写！\n"
end if
if bodymax = "" then
message=message&"您不能把留言内容大小限制设置为空！\n"
end if
if pagesize = "" then
message=message&"每页显示的留言数必须填写！！\n"
end if
if message<> "" then
call error(""&message&"")
Response.end
end if
sql = "select * from admin"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,3
Rs("gbook_name")=gbook_name
Rs("password")=password
Rs("name")=name
Rs("url")=url
Rs("bodymax")=bodymax
Rs("pagesize")=pagesize
Rs("setup_ip")=setup_ip
Rs("setup_time")=now
Rs.update
Rs.close
set Rs = nothing
conn.close
set conn = nothing
Response.redirect "adminer.asp"
Response.End
end sub
%>