📄 lanmu.asp
字号:
<!--#include file="adyou.asp"-->
<!--#include file="error.asp"-->
<%
if session("super")<>"super" then
response.Write("<script>alert('您没权限访问本页');window.location.href='de.asp'</script>")
response.End()
end if
if request("n")="" then
n=2
else
n=cint(request("n"))
end if
action=request("action")
title=request("title")
url=request("url")
n=request("n")
if action="add_wz" then
if title="" or url="" then
errmsg="<li>表单填写不完整！！"
call diserror()
Response.End
end if
if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from XS20_URL",adyou,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("space")=2
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title
response.Write("<script>alert('添加成功');window.location.href='lanmu.asp'</script>")
Response.End
end if
end if
select case n
case 1 xx="合作网站"
case 2 xx="实用工具"
case 3 xx="热门网站"
case 4 xx="导航条"
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>栏目管理</title>
<link href="../images/yxwancss.css" rel="stylesheet" type="text/css">
</head>
<body style="margin:0">
<table width="100%" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="4%"> </td>
<td width="18%"><table width="120" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="m2" height="25" align=center onmousedown="this.className='m3'" onmouseup="this.className='m2'" onmouseout="this.className='m2'" onClick="javascript:window.location.href='maketool.asp'">更新实用工具</td>
</tr>
</table></td>
<td width="78%"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="96%" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse;font-size:12px">
<form name="form" method="post" action="" onSubmit="return CheckForm()" style="margin:0">
<tr>
<td height="25" colspan="2" bgcolor="#E8E8E8"><div align="center">添加<%=xx%></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="25%" height="20">网站标题：</td>
<td width="75%"><input name="title" id="title"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="20">网站url：</td>
<td><input name="url" id="url" value="http://" size="35"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" height="20"><div align="center">
<input type="hidden" name="action" value="add_wz">
<input name="submit" type="submit" style="FONT-SIZE: 9pt" value="添加">
</div></td>
</tr>
</form></table></td>
</tr>
</table><br>
<table width="96%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#C0C0C0" style="border-collapse: collapse;font-size:12px">
<%
set r=server.createobject("adodb.recordset")
r.open "select * from XS20_URL where space=2",adyou,1,3
%>
<tr bgcolor="#E8E8E8">
<td height="30" colspan="4"> <strong><%=xx%>列表 </strong>共找到<font color="#ff0000"><%=r.recordcount%></font>条记录</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="6%"><div align="center">编号</div></td>
<td width="21%"><div align="center">名称</div></td>
<td width="54%" bgcolor="#FFFFFF"><div align="center">地址</div></td>
<td width="19%"><div align="center"></div>
<div align="center">操作</div></td>
</tr>
<%
do while not r.eof
%> <tr bgcolor="#FFFFFF">
<td><div align="center"><%=r("id")%></div></td>
<td><div align="center"><a href="<%=r("url")%>"><%=r("title")%></a></div></td>
<td> <a href="<%=r("url")%>"><%=r("url")%></a></td>
<td><div align="center"><a href="editweb.asp?id=<%=r("id")%>">修改</a> <a href="delweb.asp?id=<%=r("id")%>">删除</a></div></td>
</tr>
<%
r.movenext
loop
if r.eof and r.bof then
%>
<tr bgcolor="#FFFFFF">
<td colspan="4"><div align="center">当前没有<%=xx%>！</div></td>
</tr>
</table><%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -