Question

如何改ASP代码为一行输出一列?

<%
Function GetList(Pag)
ids=Request(''ids'')
p=Cint(Request(''p''))
If p='''' Or p<1 Then p=1
set Rs=Server.CreateObject(''ADODB.Recordset'')
str=''select id,siteTitle from Link where inp>=''&inpc&'' and IsVerify=''&strTrue&'' and webtype=''&ids&'' order by indate desc''
Rs.open str,Conn,1,2
If Rs.eof Then
OutStr = ''神马知道http://shenmazhidao.com <br/>''
Else
TotalPut=Rs.Recordcount
MaxPage=Int((TotalPut-1)/Pag)+1
If p>MaxPage Then p=MaxPage
If TotalPut > 0 Then
Rs.Move((p-1)*Pag)
dim j
j=1
do while ((Not Rs.EOF) And j<=Clng(pag))
If WapChuzhan=1 Then
OutStr = OutStr & ''''&((p-1)*pag+j)&''.<a href=''''Wap_out.asp?ids=''&ids&''&p=''&p&''&id=''&rs(''id'')&''''''>''&Wap.Ubb(Rs(''siteTitle''))&''</a> ''
Else
OutStr = OutStr & ''''&((p-1)*pag+j)&''.<a href=''''Wap_Out.asp?id=''&rs(''id'')&''''''>''&Wap.Ubb(Rs(''siteTitle''))&''</a> ''
End If
if j mod 2=0 then
OutStr = ''<br/>''
End If
Rs.MoveNext
j=j+1
loop
End If %>

如何改ASP代码为一行输出一列?

Answer 1

分页代码里添加 rs.PageSize=1