Question

修改ASP代码,要求图片显示2张换行,并分页浏览.高手请帮忙修改,重谢!

代码如下:
function show_titlepic(num,fontnum,NewWindows,PicWidthStr,PicHeightStr)
IF NewWindows="True" Then nnn=" target='_blank'"
sql="select top "&num&" ID,Title,picUrl from Hx_"&TabTemp&" where ChannelID="&ChannelID&" and passed=0 "
IF int(classid)>0 Then sql=sql&"and (cat_id="&classid&" or cat_id in(select cat_id from Hx_"&TabTemp&"Cat where sid="&classid&")) "
if TabTemp="News" or TabTemp="Art" then
sql=sql&"and isPic=1 and PicUrl<>'' "
end if
sql=sql&"ORDER by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
show_Titlepic="暂无！"
else
do while not rs.eof
show_Titlepic=show_Titlepic&"<div><a href='"&GetShowUrl(Rs(0),1)&"'"& nnn &"><img height="""&PicHeightStr&""" alt="""&rs(1)&""" width="""&PicWidthStr&""" src="""&geturl(rs(2))&""" /></a><br/><a style=""padding-top: 3px;"" href='"&GetShowUrl(Rs(0),1)&"'"& nnn &">"&gotTopic(rs(1),fontnum)&"</a></div>" & vbCrLf
rs.movenext
loop
end if
set rs=nothing
end function

Answer 1

function show_titlepic(num,fontnum,NewWindows,PicWidthStr,PicHeightStr)
IF NewWindows="True" Then nnn=" target='_blank'"
sql="select top "&num&" ID,Title,picUrl from Hx_"&TabTemp&" where ChannelID="&ChannelID&" and passed=0 "
IF int(classid)>0 Then sql=sql&"and (cat_id="&classid&" or cat_id in(select cat_id from Hx_"&TabTemp&"Cat where sid="&classid&")) "
if TabTemp="News" or TabTemp="Art" then
sql=sql&"and isPic=1 and PicUrl<>'' "
end if
sql=sql&"ORDER by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
show_Titlepic="暂无！"
else
dim i
i=0
do while not rs.eof
show_Titlepic=show_Titlepic&"<td align='center'><a href='"&GetShowUrl(Rs(0),1)&"'"& nnn &"><img height="""&PicHeightStr&""" alt="""&rs(1)&""" width="""&PicWidthStr&""" src="""&geturl(rs(2))&""" /></a><br><a href='"&GetShowUrl(Rs(0),1)&"'"& nnn &">"&gotTopic(rs(1),fontnum)&"</a></td>" & vbCrLf
rs.movenext
i=i+1
if i mod 2=0 then
show_Titlepic=show_Titlepic & "</tr><tr>"
end if
loop
show_Titlepic="<table><tr>" &show_Titlepic&"</tr></table>"
end if
set rs=nothing
end function