ASP横向循环输出+翻页

来源：百度知道 编辑：UC知道 时间：2024/05/09 20:58:46
ASP中，我想实现这样输出新闻的效果
每行输出四个新闻。这样一行一行的循环。然后再加上翻页代码！

谢谢大家的帮助了。

<table border="0" cellspacing="0" cellpadding="0">
<%
CONST PageSize = 6 ' 每页显示数量
CONST Colspan = 2 '
Dim PageName ' 页面名字(当前页面名字)
Dim Rs,SqlSelect
Dim Id,Title,SImgPath
Dim Page,PageNum,RecordNum ' 当前页,总页数,总记录数
PageName = "***.asp?"
Page = CInt(Request.QueryString("Page"))
If Page < 1 Or IsNull(Page) Or IsEmpty(Page) Then Page = 1
SqlSelect = "SELECT * FROM [TableName] Where"
Set Rs = Server.CreateObject("ADODB.RECORDSET")
If Rs.State = 1 Then Rs.Close
Rs.Open SqlSelect,Conn,1,1
If Not(Rs.Eof And Rs.Bof) Then
RecordNum = Rs.RecordCount
If RecordNum Mod PageSize = 0 Then
PageNum = RecordNum \ PageSize
Else
PageNum = RecordNum \ PageSize + 1
End If
%>
<%
Sub ShowPage()
Dim i,j,n
i = 0
Const m = 2