www.gusucode.com > 源码留言本 3.2码程序 > _admin.asp
<!--#include file="images/note_book.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Request.Cookies("note_name")%>留言本管理页面</title>
<link href="css/black.css" rel="stylesheet" type="text/css">
</head>
<%
if Request.Cookies("admin_name")<>"" then
%>
<body>
<div align="center">
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td width="120"><img src="1/T_left.gif" width="120" height="26"></td>
<td width="520" valign="middle" background="1/T_bg.gif"><a href="index.asp"><font color="#333333">留言本首页</font></a></td>
<td width="120" background="1/T_right.gif"> </td>
</tr>
<tr >
<td colspan="3">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="a2">
<form name="form1" method="post" action="setnote_name.asp"><tr>
<td height="130" class="a3">
<div align="center">
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select top 1 * from [admin]",conn
if not rs.EOF then
%>
<table width="40%" height="95" border="0" cellpadding="0" cellspacing="1" class="a2">
<tr>
<td height="18" class="a1"> <div align="center">更改网站名称</div></td>
</tr>
<tr>
<td height="100" class="a3">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100" height="30" bgcolor="#414141">
<div align="right">更改网站名称<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"> <input name="note_name" type="text" class="i1" id="note_name" value="<%=rs("note_name") %>"></td>
</tr>
<tr>
<td height="30"><div align="right">网站管理用户名:</div></td>
<td height="30"><input name="admin_name" type="text" class="i1" id="admin_name" value="<%=rs("admin_name") %>"></td>
</tr>
<tr bgcolor="#414141">
<td height="30"><div align="right">网站管理密码<strong>:</strong></div></td>
<td height="30"><input name="admin_pass" type="password" class="i1" id="admin_pass" value="<%=rs("admin_pass") %>"></td>
</tr>
<tr bgcolor="#333333">
<td height="30" colspan="2"><div align="center">
<input name="Submit2" type="submit" class="i1" value="修改网站名称">
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
%>
</div></td>
</tr></form>
<form name="form2" method="post" action="set_title.asp"><tr>
<td height="190" class="a3">
<div align="center">
<table width="40%" height="95" border="0" align="center" cellpadding="0" cellspacing="1" class="a2">
<tr>
<td height="18" class="a1"> <div align="center">添加页面顶部导航条(各项不得为空)</div></td>
</tr>
<tr>
<td height="100" class="a3"> <div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" bgcolor="#414141"><div align="right">链接名称<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_name" type="text" class="i1" id="title_name">
不超过6字</td>
</tr>
<tr>
<td height="30" bgcolor="#414141"><div align="right">链接地址<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_link" type="text" class="i1" id="title_link"></td>
</tr>
<tr>
<td width="100" height="30" bgcolor="#414141"> <div align="right">链接说明<strong>:</strong></div></td>
<td height="30" bgcolor="#414141"><input name="title_title" type="text" class="i1" id="title_title">
</td>
</tr>
<tr>
<td height="30" colspan="2"><div align="center">
<input name="Submit22" type="submit" class="i1" value="添加">
</div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<div align="center"></div>
<div align="center">以下是你已经添加的链接：（你可以对它进行删除或修改）<br>
<%
usrsql="SELECT * FROM [note_title] "
Set usrrs = Server.CreateObject("ADODB.Recordset")
usrrs.OPEN usrsql, Conn
do while not usrrs.eof
%>
<a href="<%=usrrs("title_link")%>" title="<%=usrrs("title_title")%>" target="_blank"><%=usrrs("title_name")%></a>（<a href="del_link.asp?title_ID=<%=usrrs("title_ID")%>">删除</a>|<a href="edit_link.asp?title_ID=<%=usrrs("title_ID")%>&title_name=<%=usrrs("title_name")%>&title_link=<%=usrrs("title_link")%>&title_title=<%=usrrs("title_title")%>">修改</a>）-
<%
usrrs.movenext
loop
usrrs.close
conn.Close
set conn=Nothing
%>
</div></td> </tr></form>
</table></td>
</tr>
<tr>
<td><img src="1/B_left.gif" width="120" height="26"></td>
<td background="1/B_bg.gif"> </td>
<td background="1/B_right.gif"> </td>
</tr>
</table>
<% else %>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td width="120"><img src="1/T_left.gif" width="120" height="26"></td>
<td width="520" background="1/T_bg.gif"> </td>
<td width="120"><img src="1/T_right.gif" width="120" height="26"></td>
</tr>
<tr >
<td colspan="3"> <table width="100%" border="0" cellpadding="0" cellspacing="1" class="a2">
<tr>
<td height="200" class="a3">
<div align="center">
<table width="40%" height="95" border="0" cellpadding="0" cellspacing="1" class="a2">
<tr>
<td height="18" class="a1">
<div align="center">你还没登录呢~</div></td>
</tr>
<form name="form" method="post" action="login.asp"><tr>
<td height="150" class="a3"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#414141">
<td width="100" height="30">
<div align="right">超管用户名<strong>:</strong></div></td>
<td height="30" bgcolor="#414141">
<input name="admin_name" type="text" class="i1" id="admin_name"></td>
</tr>
<tr>
<td height="30">
<div align="right">管理密码<strong>:</strong></div></td>
<td height="30">
<input name="admin_pass" type="password" class="i1" id="admin_pass"></td>
</tr>
<tr bgcolor="#414141">
<td height="30" colspan="2"><div align="center">
<input name="Submit" type="submit" class="i1" value="我要管理">
</div></td>
</tr>
</table>
</div></td>
</tr> </form>
</table>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="1/B_left.gif" width="120" height="26"></td>
<td background="1/B_bg.gif"> </td>
<td background="1/B_right.gif"> </td>
</tr>
</table>
<% end if %>
</div>
</body>
</html>
<!--#include file="_button.asp"-->