asp代码-如何做到友情连接横排啊

来源:百度知道 编辑:UC知道 时间:2024/05/05 01:55:15
下面是代码```希望朋友们帮忙回答一下
<html>
<head>
<!--#include file="include/ht.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="1style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="160" height="30" border="1" cellpadding="0" cellspacing="0" borderColorDark="#ffffff" borderColorLight="#4E91E8">
<%
if request.querystring("page")="" then
page=1
else
page=request.querystring("page")
end if
page=cint(page)
Const adOpenKeyset = 1
Const adLockReadOnly = 1
set rs=server.CreateObject("adodb.recordset")
sql="select * from link order by id desc"
rs.open sql,conn,1,1
if rs.eof then
msg="数据

<html>
<head>
<!--#include file="include/ht.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="1style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
if request.querystring("page")="" then
page=1
else
page=request.querystring("page")
end if
page=cint(page)
Const adOpenKeyset = 1
Const adLockReadOnly = 1
set rs=server.CreateObject("adodb.recordset")
sql="select * from link order by id desc"
rs.open sql,conn,1,1
if rs.eof then
msg="数据库中无任何纪录"
%>
<%
else
rs.pagesize=6
TotalPages=rs.PageCount
Pagesize=rs.pagesize
rs.absolutepage=page
totalrows = rs.RecordCount
how=0
%>
<%
Do unt