📄 all-1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link href="images/css1.css" rel="stylesheet" type="text/css">
<!--#include file="inc.asp"-->
<title>通过验证链接信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="150" height="400" bgcolor="#FFFFFF"><table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="54" align="center"><a href="all.asp"><img src="images/mfkbb1.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="all-1.asp"><img src="images/mfkbb2.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="all-2.asp"><img src="images/mfkbb3.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="user.asp"><img src="images/mfkbb4.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="addlinks.asp"><img src="images/mfkbb5.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="index.asp"><img src="images/mfkbb6.gif" width="137" height="48" border="0"></a></td>
</tr>
<tr>
<td height="54" align="center"><a href="http://www.yongzi.com" target="_blank"><img src="images/mfkbb7.gif" width="137" height="48" border="0"></a></td>
</tr>
</table></td>
<td width="602" valign="top" bgcolor="#FFFFFF"><table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="4"><img src="images/mfkbbb2.gif" width="600" height="32"></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td width="110" height="22">Logo</td>
<td width="120">网站名称</td>
<td width="320">网站介绍</td>
<td width="50">点击</td>
</tr>
<tr valign="top">
<td height="325" colspan="4">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#f5f5f5">
<%
mfkiqpl.openmdb
set rs=server.CreateObject("ADODB.Recordset")
sql="select id,webname,weburl,weblogo,webbio,ok,webclick from links where ok=true order by id desc"
rs.open sql,conn,3,1
if rs.eof or rs.bof then
response.write("<tr colspan=4 height=35 align=center bgcolor=#ffffff><td>暂时没有数据！</td></tr>")
else
rs.pagesize=9
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
a=0
do while not rs.eof and a<rs.pagesize
%>
<tr bgcolor="#FFFFFF">
<td width="110" height="35" align="center">
<%
if rs("weblogo")="" then
response.write("无图标")
else
response.write("<a href='goto.asp?id="&rs("id")&"' target=_blank'><img src="&rs("weblogo")&" width=88 height=31 border=0></a>")
end if%></td>
<td width="120"><a href="goto.asp?id=<%=rs("id")%>" target=_blank><%=codestr(rs("webname"))%></a></td>
<td width="320"><%=codestr(rs("webbio"))%></td>
<td width="50" align="center"><%=rs("webclick")%></td>
</tr>
<%
rs.movenext
a=a+1
loop
end if
%>
</table> </td>
</tr>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center">
<%
response.write ("<a href=?page=1>首页</a> ")
if page>1 then
response.write ("<a href=?page="&page-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if page<pagec then
response.write("<a href=?page="&page+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write ("<a href=?page="&pagec&">尾页</a> ")
response.write ("当前："&page&"/"&pagec&" ")
response.write("共有链接："&rs.recordcount&"个")
mfkiqpl.closers(rs)
mfkiqpl.closeconn
%></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -