📄 admin_link.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/MyFunction.Asp"-->
<% call master %>
<% l=request.QueryString("l")
select case l
case "add"
linkadd
case else
link
end select %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>友情链接</title>
<link href="../css/admincss.css" rel="stylesheet" type="text/css">
</head>
<body>
<% sub link %>
<% set lk=server.CreateObject("adodb.recordset")
lk.open"select * from linkxx order by id desc",conn,1,1 %>
<table width="80%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#0099CC">
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center" height="25">友情链接 <a href="?l=add">增加链接</a></td>
</tr>
<% If lk.eof Then %>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center">暂无友情链接！</td>
</tr>
<% Else
mypage=request("page")
if mypage="" or mypage<1 then
mypage=1
end if %>
<tr bgcolor="#71D0FF">
<td width="28%" align="center">站点名称</td>
<td width="48%" align="center">站点地址</td>
<td width="14%" align="center">添加日期</td>
<td width="10%" align="center">操作</td>
</tr>
<% lk.pagesize=20
rec=cint(lk.pagesize)
maxpage=cint(lk.pagecount)
sum=lk.recordcount
lk.absolutepage=mypage
cs=""
csz=""
i=0
do until lk.eof or i=20 %>
<tr bgcolor="#FFFFFF">
<td> <%= lk(1) %></td>
<td> <%= lk(2) %></td>
<td align="center"><%= lk(5) %></td>
<td align="center"><% If lk(4)=false Then %><a href="admin_do.asp?act=lkshow&s=true&id=<%= lk(0) %>">显示</a><% Else %><a href="admin_do.asp?act=lkshow&s=false&id=<%= lk(0) %>">隐藏</a><% End If %> <a href="admin_do.asp?act=lkdel&id=<%= lk(0) %>" onClick="{if(confirm('要删除吗？')){return true;}return false;}">删除</a></td>
</tr>
<% lk.movenext
i=i+1
loop
scriptname=request.ServerVariables("SCRIPT_NAME") %>
<tr bgcolor="#FFFFFF">
<td colspan="4" align="center"><% call pagelist(sum,rec,maxpage,mypage,scriptname,cs,csz) %></td>
</tr>
<% End If %>
</table>
<% lk.close
set lk=nothing %>
<% end sub %>
<% sub linkadd %>
<table width="80%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#0099CC">
<tr bgcolor="#4DC5FF">
<td height="25" colspan="2" align="center">增加友情链接</td>
</tr>
<form method="post" action="admin_do.asp?act=lkadd">
<tr bgcolor="#FFFFFF">
<td width="18%" align="right">网站名称：</td>
<td width="82%"><input name="linkname" type="text" id="linkname" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">网站地址：</td>
<td><input name="linkurl" type="text" id="linkurl" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">网站介绍：</td>
<td><textarea name="linkinfo" cols="30" rows="5" id="linkinfo"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right">是否显示：</td>
<td><input name="lshow" type="radio" value="true" checked>显示
<input type="radio" name="lshow" value="false">隐藏</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td><input type="submit" name="Submit" value="提交">
<input type="button" name="Submit2" value="返回" onClick="javascript:history.go(-1)"></td>
</tr></form>
</table>
<% end sub %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -