📄 admin_link_lb.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file = admin_chk.asp -->
<%
If Not ChkAdmin("FriendLink") Then
	Call ArtErr("","")
End If
%>
<!--#include file = Include/NIncHeads.asp -->
<html>

<head>

<title>友情链接</title>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type="text/javascript"></script>
</head>
<%
saveid=trim(request("saveid"))
editid=trim(request("editid"))
lb=trim(request("lb"))
delid=trim(request("delid"))

if editid="" and saveid="" and lb<>"" then
	conn.Execute "insert into [LINKLB] ([lb]) values('"&lb&"')"
	Response.Redirect "?"
elseif editid="" and saveid<>"" and lb<>"" then
	conn.Execute "update [LINKLB] set [lb]='"&lb&"' where id="&clng(saveid)
	Response.Redirect "?"

elseif editid<>"" and saveid="" and lb="" then
	set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open "select * from [LINKLB] where ID="&EDITID&" order by id desc",conn,1,1
	if rs.recordcount<>0 then
		elb=rs("lb")
	end if
	rs.close:set rs=nothing
end if

if delid<>"" then
	conn.Execute "delete from [LINKLB] where ID="&clng(delid)
end if
%>
<body bgcolor="#ffffff">
<%  Call Heads_link() %>
	 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
			<tr>
			<td   align="center" class="bg_tr" height="25" colspan="2"><b>添加友情链接类别</b></td>
			</tr>
			<tr>
			<td width="21%" class="tdbg">添加友情链接类别</td>
			<form method="POST" action="?saveid=<%=editid%>">
			<td width="79%" class="tdbg">&nbsp;&nbsp;<input type="text" name="LB" value='<%=elb%>' size="30">&nbsp;&nbsp;&nbsp;<input type="submit" value="保存" name="B1"></td>
			</form>
		</tr>		
	</table></td></tr></table><br>

	 <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
     		<tr>
			<td  align="center" class="bg_tr" height="25"><b>类&nbsp;&nbsp;别</b></td>
			<td  align="center" class="bg_tr" height="25"><b>网 址 数 量</b></td>
			<td  align="center" class="bg_tr" height="25"><b>操 &nbsp;作</b></td>
		</tr>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [LinkLB] order by id asc",conn,1,1

if rs.recordcount<>0 then

while not rs.eof
%>
		<tr height="25" onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg">
			<td><font color="#808080">[ID:<%=rs("id")%>]</font><%=rs("lb")%></td>
			<td align=center>
				<%
					set rs2 = Server.CreateObject("ADODB.RecordSet")
					rs2.Open "select * from [Link] where [lb]="&rs("ID")&" order by id desc",conn,1,1
					Response.Write rs2.recordcount
					rs2.close:set rs2=nothing
				%>
			</td>
			<td align=center><a href="admin_link_code.asp?lb=<%=rs("id")%>">调用</a> <a href="?editid=<%=rs("ID")%>">修改</a>
			<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="?delid=<%=rs("ID")%>">删除</a></td>
		</tr>
		
<%
rs.movenext
wend
end if
rs.close:set rs=nothing
%>
</table>
</body>
</html>
<%
Call AdminPageEnd()
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -