Question

ASP一行两列,高手帮我改下,急,谢谢!

<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=2 then
response.Write(PrevSectionText & " ")
else
response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section-1 & "'>" & PrevSectionText & "</a> ")
end if

'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("<strong>[" & p & "]</strong> ")
else
response.Write("<a href='" & strPageUrl & "&page=" & p & "§ion=" & Section & "'>[" & p & "]</a> ")
end if
next
response.Write("页")
'后一段
intStarPage=(Section) * intSectionSize + 1
if Section>=intSectionCount then
response.Write(" " & NextSectionText)
else
response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section+1 & "'>" & NextSectionText & "</a> ")
end if
%>
<TR>
这是一行一列的,高手帮我改下一行两列,谢谢!
<%
strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1

=GetVariable("page")
if page="" then
page=1
else
page=Cint(page)
end if

Section=GetVariable("section")
if Section="" then
Section=1
else
Section=Cint(Section)
end if

intPageSize=6
intSectionSize=5
PrevSectionText="<FONT face=webdings>7</FONT>"
NextSectionText="<FONT face=webdings>8</FONT>"
PrevPageText="<FONT face=webdings>3</FONT>"
NextPageText="<FONT face=webdings>4</FONT>"

strPageUrl="?class=" & GetVariable("class") & "&key=" & GetVariable("key") & "&price1=" & GetVariable("price1") & "&price2=" & GetVariable("price2")

rs.pagesize=intPageSize
intCount=rs.RecordCount
intPageCount=rs.pagecount
intSectionCount=(intPageCount - 1) \ intSectionSize + 1
if intCount>0 then
rs.AbsolutePage=page
end if
%>

Answer 1

起码要写全点嘛比如：
dim Section,intSectionSize,intStarPage,strPageUrl
dim PrevSectionText,p,intPageCount,intSectionCount
dim NextSectionText
Section=
intSectionSize=
intStarPage =
intStarPage=
PrevSectionText="goodluck"
…………

要不一运行就是显示：

第页