📄 admin_site.asp
字号:
</table>
<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="5" background="images/sidebox-title-left.gif"><img src="images/sidebox-title-left.gif" width="5" height="16" alt=""></td>
<td align="center" background="images/title-bg.gif" bgcolor="#99CCFF" width="140"><font color="#363636"><b>※班级系统管理※</b></font></td>
<td align="left" width="5" background="images/sidebox-title-right.gif"><img src="images/sidebox-title-right.gif" width="5" height="16" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="150" height="7"><img src="images/sidebox-title-bottom.gif" width="150" height="7" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr valign="top">
<td align="left" width="4" background="images/sidebox-content-left.gif"><img src="images/sidebox-content-left.gif" width="4" height="1" alt=""></td>
<td width="142" bgcolor="#99CCFF">
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<TR><TD>
· <a href="admin_system.asp?action=set">系统配置</a><br>
· <a href="admin_login.asp?action=out">退出管理</a><br>
</TD></TR></TABLE></td>
<td align="left" width="4" background="images/sidebox-content-right.gif"><img src="images/sidebox-content-right.gif" width="4" height="1" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="150">
<tr>
<td align="left" width="150" height="9"><img src="images/sidebox-bottom.gif" width="150" height="9" alt=""></td>
</tr>
</table>
</td>
<td width="100%"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="left" width="4" height="10"><img src="images/a1.gif" width="4" height="10" alt=""></td>
<td height="10" background="images/a2.gif"><img height="10"></td>
<td align="right" width="4" height="10"><img src="images/a3.gif" width="4" height="10" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#99CCFF" width="100%">
<tr>
<td align="left" width="5" background="images/sidebox-title-left.gif"><img src="images/sidebox-title-left.gif" width="5" height="16" alt=""></td>
<td width="100%" background="images/title-bg.gif" align="center"><font color="#363636"><a href="admin_site.asp"><b>※ 友 情 连 接 管 理 ※</b></a></font></td>
<td align="left" width="5" background="images/sidebox-title-right.gif"><img src="images/sidebox-title-right.gif" width="5" height="16" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="left" width="4" height="7"><img src="images/b1.gif" width="4" height="7" alt=""></td>
<td height="7" background="images/b2.gif"><img height="7"></td>
<td align="right" width="4" height="7"><img src="images/b3.gif" width="4" height="7" alt=""></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#99CCFF" width="100%" height="590">
<tr>
<td align="left" width="4" background="images/sidebox-content-left.gif"><img src="images/sidebox-content-left.gif" width="4" height="1" alt=""></td>
<td bgcolor="#99CCFF" valign='top'>
<%
if session("admin")="" then
response.write "<br><br><br><br><center><font color=red>你还没有登录本站呢。不能进入管理后台！！</font><br><br>请先登录再进入管理后台！！谢谢合作！！</center>"
end if
%>
<%if session("admin")<>"" then%>
<%if request("action")="" then%>
<center><br><br><br><Font color=red size=+2>请选择右边的菜单进行管理。谢谢合作。</font></center>
<%end if%>
<%if request("action")="view" then%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from freindsite order by id desc"
rs.open sql,db,1,1
dim pagenum
rs.pagesize=18
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>
<table width="100%" border="0" align="center" cellspacing="0">
<tr align='center' bgcolor="#006699">
<td width="10%"><font color="#FFFFFF">I D</font></td>
<td width="30%" height="25" align='left'><font color="#FFFFFF">网站名称</font></td>
<td width="40%"><font color="#FFFFFF">网站地址</font></td>
<td width="10%"><font color="#FFFFFF">修改</font></td>
<td width="10%"><font color="#FFFFFF">删除</font></td>
</tr>
<%do while not rs.eof and i<18%>
<tr align='center'>
<td> <a href='<%=rs("url")%>' target='_blank'><%=rs("id")%></a></td>
<td align='left'><img src='images/arrow2.gif' border='0'> <a href='<%=rs("url")%>' target='_blank'><%=rs("info")%></a></td>
<td><a href='<%=rs("url")%>'><%=rs("url")%></a></td>
<td><a href='admin_site.asp?action=modify&id=<%=rs("id")%>'>修改</a></td>
<td><a href='admin_site.asp?action=del&id=<%=rs("id")%>'>删除</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
</table>
<p align="center"><a href=admin_site.asp?action=view&pagenum=1>首页</a>
<%if pagenum>1 then%>
<a href=admin_site.asp?action=view&pagenum=<%=(pagenum-1)%>>上一页</a>
<%else%>
上一页
<%end if%>
<%if pagenum < trim(pagecount1) then%>
<a href=admin_site.asp?action=view&pagenum=<%=(pagenum+1)%>>下一页</a>
<%else%>
下一页
<%end if%> <a href=admin_site.asp?action=view&pagenum=<%=pagecount1%>>尾页</a>
</p>
<% rs.close %>
<p align=center>
<input type=button value=" 添 加 " onClick="document.location='admin_site.asp?action=add'">
</p>
<% end if %>
<%if request("action")="add" then%>
<script language=javascript>
<!--
function site_check()
{
if (add.url.value=="")
{ alert("请填写 网站地址！！"); return false; }
if (add.info.value=="")
{ alert("请填写 网站名称！！ "); return false; }
}
-->
</script>
<br><br>
<table border=0 width='100%' cellspacing=0 cellpadding=2>
<form name=add action='admin_site.asp?action=addok' method=post>
<tr valign='top'><td width='20%' align=right>网站地址：</td><td><input type=text name='url' size=35 maxlength=80> <font color='#ff0000'>*</font></td></tr>
<tr><td height='10'> </td></tr>
<tr valign='top'><td align=right>网站名称：</td><td><input type=text name='info' size=35 maxlength=80> <font color='#ff0000'>*</font></td></tr>
<tr><td height='10'> </td></tr>
<tr><td></td><td><input type=submit value=' 添 加 ' onclick="return site_check()"> <input type=button value=' 返 回 ' onClick="document.location='admin_site.asp?action=view'"></td></tr>
</form>
</table>
<p><font color=red> 添加说明：</font>带*号的为必填项，请认真填写！</p>
<% end if %>
<%if request("action")="addok" then%>
<%
on error resume next
url=trim(request("url"))
info=trim(request("info"))
sql="select * from freindsite"
set rs=server.createobject("adodb.recordset")
rs.open sql,db,1,3
rs.addnew
rs("url")=url
rs("info")=info
rs.update
if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_site.asp?action=add'>返回重新添加</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功添加网站！<br><br><a href='admin_site.asp?action=add'>返回继续添加</a>"
end if
%>
<% end if %>
<%if request("action")="modify" then%>
<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from freindsite where id="&id
rs.open sql,db,1,3
%>
<script language=javascript>
<!--
function site_check()
{
if (modify.url.value=="")
{ alert("请填写 网站地址！！"); return false; }
if (modify.info.value=="")
{ alert("请填写 网站名称！！ "); return false; }
}
-->
</script>
<table border=0 width='100%' cellspacing=0 cellpadding=2>
<tr><td height='10'> </td></tr>
<form name=modify action='admin_site.asp?action=modifyok&id=<%=rs("id")%>' method=post>
<tr valign='top'><td width='20%' align=right>网站地址：</td><td><input type=text name='url' size=35 maxlength=80 value='<%=rs("url")%>'> <font color='#ff0000'>*</font></td></tr>
<tr><td height='10'> </td></tr>
<tr valign='top'><td align=right>网站名称：</td><td><input type=text name='info' size=35 maxlength=80 value='<%=rs("info")%>'> <font color='#ff0000'>*</font></td></tr>
<tr><td height='10'> </td></tr>
<tr><td></td><td><input type=submit value=' 修 改 ' onclick="return site_check()"> <input type=button value=' 返 回 ' onClick="document.location='admin_site.asp?action=view'"></td></tr>
</form>
</table>
<p><font color=red> 修改说明：</font>带*号的为必填项，请认真填写！</p>
<% rs.close %>
<% end if %>
<%if request("action")="modifyok" then%>
<%
id=trim(request("id"))
url=trim(request("url"))
info=trim(request("info"))
sql="update freindsite set url='"&url&"',info='"&info&"'where id="&id
db.execute(sql)
if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>保存过程中发生错误，必须重新填写！<br><br><a href='admin_site.asp?action=view'>返回重新修改</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功修改网站！<br><br><a href='admin_site.asp?action=view'>返回继续修改</a>"
end if
%>
<% end if %>
<%if request("action")="del" then%>
<%
id=trim(request("id"))
sql="delete * from freindsite where id="&id
db.execute(sql)
if db.errors.count>0 then
response.write "<br><br><br><center><font color=red>删除过程中发生错误，必须重新删除！<br><br><a href='admin_site.asp?action=view'>返回重新删除</a>"
else
response.write "<br><br><br><center><font color=red>恭喜你！你已经成功删除网站！<br><br><a href='admin_site.asp?action=view'>返回继续删除</a>"
end if
%>
<% end if %>
<% end if %>
</td>
<td align="left" width="4" background="images/sidebox-content-right.gif"><img src="images/sidebox-content-right.gif" width="4" height="1" alt=""></td>
</tr>
</table>
</td>
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/column-footer.gif" width="780" height="16" border="0" alt=""></td>
</tr>
</table>
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr valign="top">
<td><img src="images/footer.gif" width="780" height="20" border="0" alt=""></td>
</tr>
</table>
<!-- footer -->
<table width="780" cellpadding="0" cellspacing="0" border="0" align="center">
<tr align="center">
<td width="100%" colspan="3"><%
set rs=server.createobject("adodb.recordset")
sql="select top 1 copyright from system order by id desc"
rs.open sql,db,1,1
%>
<%=rs("copyright")%>
<% rs.close %>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -