📄 admin_linkfont.asp
字号:
<!--#include file=../conn/conn1.asp --><!--#include file="char.inc"-->
<% if request.cookies("okadmin")="" and request.cookies("rank")="" then
response.redirect "login.asp"
end if %>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<link href="../images/realty.css" rel="stylesheet" type="text/css">
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from link where type='文字连接' order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "文字连接暂时没有人申请"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" class="TableLine" style="border-collapse:collapse;">
<tr bgcolor="#99CC00">
<td height="24" colspan=7 align=center><font color="#FFFFFF"><b>管 理
文 字 连 接 友 情 站 点</b></font></td>
<td height="24" align=center>[<a href="javascript:window.location.reload()"><font color="#0000FF">刷新</font></a>]</td>
</tr>
<tr bgcolor="#CCCCCC" height=22>
<td width="5%" height="22" align="center">ID</td>
<td width="11%" height="22" align="center">站名</td>
<td width="23%" height="22" align="center">网址</td>
<td height="22" align="center">简介</td>
<td width="12%" height="22" align="center">站长</td>
<td width="8%" height="22" align="center">打开状态</td>
<td width="8%" height="22" align="center">修改</td>
<td width="7%" height="22" align="center">删除</td>
</tr>
<%
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=5
rs.AbsolutePage=pagecount
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td width="5%" align="center"><%=rs("ID")%></td>
<td width="11%" align="center"><%=rs("SiteName")%></td>
<td width="23%" align="center"><a href="<%=rs("SiteUrl")%>" target="_blank"><%=rs("SiteUrl")%></a></td>
<td align="center"><a style="cursor:hand" title="<%if rs("SiteIntro")="" or isnull(rs("SiteIntro")) then%>无<%else%><%=rs("SiteIntro")%><%end if%>">网站简介</a></td>
<td width="12%" align="center"><%=rs("SiteAdmin")%></td>
<td width="8%" align="center"><%=rs("Isok")%></td>
<td width="8%" align="center"><a href="admin_linkModi.asp?id=<%=rs("ID")%>">修改</a></td>
<td width="7%" align="center"> <input onclick="javascript:window.open('admin_linkdel.asp?act=del&id=<%=rs("ID")%>','_self','')" type="button" value="删除" name="del"></td>
</tr>
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
<tr bgcolor="#FFFFFF">
<td height=24 colspan=8 align=center>
<div align="center">页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="admin_linkfont.asp?page=<%=cstr(pagecount+1)%>"> <font color="#000000">下一页</font></a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="admin_linkfont.asp?page=<%=cstr(pagecount-1)%>"> <font color="#000000">上一页</font></a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="admin_linkfont.asp?page=<%=cstr(pagecount-1)%>"> <font color="#000000">上一页</font></a>
<a href="admin_linkfont.asp?page=<%=cstr(pagecount+1)%>"> <font color="#000000">下一页</font></a>
<% end if
%>
</div>
</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing %>
</td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -