📄 admin_linkfont.asp
字号:
<!--#include file=../conn/adodb1.asp -->
<%
if session("cjuser")="" and session("pwdd")="" then
response.write"<SCRIPT language=JavaScript>alert('你没有登录，无权进入！');"
response.write"this.location.href='error.htm';</SCRIPT>"
response.end
end if
%>
<META http-equiv=Content-Type content=text/html; charset=gb2312>
<link href="css/main.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,db,1,1
if rs.bof and rs.eof then
response.write "文字连接暂时没有人申请"
else
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="TableLine" style="border-collapse:collapse;">
<tr class="xiangxi" >
<td height="24" colspan=7 align=center><font><b>管 理
文 字 连 接 友 情 站 点</b></font></td>
</tr>
<tr >
<td width="5%" height="22" align="center" class="fenlei">ID</td>
<td width="11%" height="22" align="center" class="fenlei">站名</td>
<td width="23%" height="22" align="center" class="fenlei">网址</td>
<td height="22" align="center" class="fenlei">简介</td>
<td height="22" align="center" class="fenlei">站长</td>
<td width="8%" height="22" align="center" class="fenlei">修改</td>
<td width="7%" height="22" align="center" class="fenlei">删除</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 >
<td width="5%" align="center" class="bordbg"><%=rs("ID")%></td>
<td width="11%" align="center" class="bordbg"><%=rs("SiteName")%></td>
<td width="23%" align="center" class="bordbg"><a href="<%=rs("SiteUrl")%>" target="_blank"><%=rs("SiteUrl")%></a></td>
<td align="center" class="bordbg"><a style="cursor:hand" title="<%if rs("SiteIntro")="" or isnull(rs("SiteIntro")) then%>无<%else%><%=rs("SiteIntro")%><%end if%>">网站简介</a></td>
<td align="center" class="bordbg"><%=rs("SiteAdmin")%></td>
<td width="8%" align="center" class="bordbg"><a href="../../../%D0%DE%B8%C4%20pt/pt/manage/admin_linkModi.asp?id=<%=rs("ID")%>">修改</a></td>
<td width="7%" align="center" class="bordbg"> <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>
<td height=24 colspan=7 align=center> <div align="center" class="font10">页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b>
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="../../../%D0%DE%B8%C4%20pt/pt/manage/admin_linkfont.asp?page=<%=cstr(pagecount+1)%>" class="font10">
<font color="#000000">下一页</font></a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="../../../%D0%DE%B8%C4%20pt/pt/manage/admin_linkfont.asp?page=<%=cstr(pagecount-1)%>" class="font10">
<font color="#000000">上一页</font></a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="../../../%D0%DE%B8%C4%20pt/pt/manage/admin_linkfont.asp?page=<%=cstr(pagecount-1)%>" class="font10">
<font color="#000000">上一页</font></a> <a href="../../../%D0%DE%B8%C4%20pt/pt/manage/admin_linkfont.asp?page=<%=cstr(pagecount+1)%>" class="font10">
<font color="#000000">下一页</font></a>
<% end if
%>
</div></td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing %>
<span class="font10">[<a href="javascript:window.location.reload()"><font color="#0000FF">刷新</font></a>]</span></td>
</tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -