asp分列问题

来源：百度知道 编辑：UC知道 时间：2024/05/10 11:06:42
我想要KeyWord部份分列显示，现在是单列20行显示，显得太单调了，我想分成2列10行显示，请问怎么改？谢谢！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #Include file="../../Component/Class.asp" -->
<!-- #Include file="Inc.asp" -->
<%
''//Main Code
Dim Db,Str
Set Db = New DataBase
Set Str = New StringObject

Dim ContentID,SelectSql,UpdateSql,Flag
Dim Title,Source,Content,ClassID,IssueTime,Keyword,Rate
Flag = 0
ContentID = Request.QueryString("ContentID")
Url = "/Error.asp?Url=" + Request.ServerVariables("HTTP_REFERER")
SelectSql = "Select * From WayInfo_Content Where IsOpen=1 and ContentID=" + Str.CheckSql(Cstr(ContentID))
UpdateSql = "Update WayInfo_Content Set Rate=Rate+1 Where IsOpen=1 and ContentID = " +Str.CheckSql(Cstr(ContentID))
If Str.IsFieldNull(ContentID) Then
Flag = 1
End If
If Not IsNumeric(ContentI

最下面的函数中的循环
While Not Db.Rs.Eof
Response.Write("·")
Response.Write("<A href=Info_View.asp?ContentID=" + Cstr(Db.Rs(1)) + " Target=_Blank>")
Response.Write(Db.Rs(0))
Response.Write("</a>")
Response.Write("<font color=cccccc>[" + Cstr(FormatDateTime(Db.Rs("IssueTime"),2)) + "]</font>")
Response.Write("<br>")
Db.Rs.MoveNext
Wend

改成试试，不行hi我

While Not Db.Rs.Eof
for i=1 to 2
Response.Write("·")
Response.Write("<A href=Info_View.asp?ContentID=" + Cstr(Db.Rs(1)) + " Target=_Blank>")
Response.Write(Db.Rs(0))
Response.Write("</a>")
Response.Write("<font color=cccccc>[" + Cstr(FormatDateTime(Db.Rs("IssueTime"),2)) + "]</font>")
Db.Rs.MoveN