📄 advance.asp
字号:
<!--#include file="security.asp"-->
<!--#include file="conn.asp"-->
<!--#include file=../inc/encrypt.asp -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../inc/style.css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#DDDDDD" colspan="2"><b><font color="#000000">高级管理</font></b>
| <a href="upload_img.asp">上载图片</a>
| <a href="advance.asp">刷新</a>
</td>
</tr>
<tr>
<td bgcolor="#F7F7F7" align="center"><a href="photonum.asp">重新计算照片</a></td>
<td bgcolor="#FFFFFF"><font color="#000000">重新计算每个会员实际上载的照片，运行将耗用大量资源，请谨慎使用！</font></td>
</tr>
<tr>
<td bgcolor="#F7F7F7" width="100" align="center" valign="top"><font color="#000000">超级用户密码</font></td>
<td bgcolor="#FFFFFF">
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where id=1",conn,1,1
%>
<form name="form1" method="post" action="">
<INPUT TYPE="hidden" name=method value="chan">
<p>帐号：
<input type="text" class="put" name="account" maxlength="10" size="10" value="<%=rs("admin_name")%>">
<br>
密码：
<input type="text" class="put" name="passwd" maxlength="10" size="10" value="<%=rs("admin_password")%>">
<br>
<input type="submit" name="change" value="修改" class="put1">
<input type="reset" name="Submit2" value="重置" class="put1">
</p>
</form>
<%
rs.close
if request("method")="chan" then
if request("change")="修改" then
sql= "select * from admin where id=1"
rs.open sql,conn,3,2
rs("admin_name")=request("account")
rs("admin_password")=request("passwd")
rs.Update
rs.close
end if
end if
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7F7F7" width="100" align="center" valign="top"><font color="#000000">首页最新动态</font></td>
<td align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#666666">
<tr bgcolor="#f7f7f7" align="center">
<td width="70"><font color="#000000">日期</font></td>
<td><font color="#000000">内容</font></td>
<td width="40"><font color="#000000">删除</font></td>
</tr>
<%
sql="select * from news"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td width="70"> <%=rs("senddate")%></td>
<td> <%=rs("contents")%></td>
<td width="40" align="center"><a href="advance.asp?method=del&id=<%=rs("ID")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
<%
if request("method")="del" then
sql="delete from news where id=" & request("id")
rs.open sql,conn,3,2
end if
%>
<br>
<form name="form2" method="post" action="">
<INPUT TYPE="hidden" name=method value="add">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#666666">
<tr>
<td width="70" bgcolor="#f7f7f7" align="center">日期</td>
<td colspan="2" bgcolor="#FFFFFF">
<input type="text" class="put" name="date" size="15" maxlength="15" value="<%=date%>">
</td>
</tr>
<tr>
<td width="70" bgcolor="#f7f7f7" align="center">内容</td>
<td colspan="2" bgcolor="#FFFFFF">
<textarea name="contents" cols="50" rows="4" class="put"></textarea>
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td colspan="3">
<input type="submit" name="change" value="发布" class="put1">
</td>
</tr>
</table>
</form>
<%
if request("method")="add" then
rs.open "news",conn,3,2
rs.Addnew
rs("senddate")=cdate(request("date"))
rs("contents")=request("contents")
rs.Update
rs.close
end if
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7F7F7" width="100" align="center" valign="top">友情链接</td>
<td align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#666666">
<tr bgcolor="#f7f7f7" align="center">
<td width="70"><font color="#000000">日期</font></td>
<td><font color="#000000">友情连接</font></td>
<td width="40"><font color="#000000">删除</font></td>
</tr>
<%
sql="select * from links"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td width="70"> <%=rs("addtime")%></td>
<td> <a href="http://<%=rs("siteurl")%>" target="_blank"><%=rs("sitename")%></td>
<td width="40" align="center"><a href="advance.asp?method=drop&id=<%=rs("ID")%>">删除</a></td>
</tr>
<%
rs.movenext
loop
rs.close
%>
</table>
<%
if request("method")="drop" then
sql="delete from links where id=" & request("id")
rs.open sql,conn,3,2
end if
%>
<br>
<form name="form2" method="post">
<input type="hidden" name=method value="append">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#666666">
<tr>
<td width="70" bgcolor="#f7f7f7" align="center">网站名称</td>
<td colspan="2" bgcolor="#FFFFFF">
<input type="text" class="put" name="sitename" size="40" maxlength="100">
</td>
</tr>
<tr>
<td width="70" bgcolor="#f7f7f7" align="center">链接地址</td>
<td colspan="2" bgcolor="#FFFFFF">
<input type="text" name="siteurl" size="40" class="put" value="" maxlength="100">
</td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td colspan="3">
<input type="submit" name="change2" value="添加" class="put1">
</td>
</tr>
</table>
</form>
<%
if request("method")="append" then
rs.open "links",conn,3,2
rs.Addnew
rs("sitename")=request("sitename")
rs("siteurl")=request("siteurl")
rs.Update
rs.close
end if
%>
</td>
</tr>
</table>
</body>
</html>
<%
conn.close
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -