这段asp代码想实现顺序越过第一个数,选第二个,怎么改?

来源:百度知道 编辑:UC知道 时间:2024/05/27 06:08:47
'=======================[评测]图片[小]======================

function pic_url_pingce(pvar,pt)
dim temp1,pic_var
pic_var=pvar
if pic_var="" then
pic_var=joekoe_cms.web_upload&"no_pic.gif"
else
if instr(pic_var,"://")<1 then
pic_var=joekoe_cms.web_upload&pic_var
end if
end if
select case int(pt)
case 1
temp1="<img border=0 width=140 height=114 src='" & pic_var & "'>"
case 2
temp1="<img border=0 width=82 height=67 src='" & pic_var & "'>"
case else
temp1=pic_var
end select
pic_url_pingce=temp1
end function

function pic_fk_pingce(pvar,pt,purl)
dim picurl,temp1
picurl=pic_url_pingce(pvar,pt)
if purl<>"" and var_null(purl)<>"" then picurl="<a href='"&purl&&quo

align=center height=90><b style='FONT-SIZE: 13px; COLOR: #000000'>·暂无新闻</b></td>"
插入
rs.movenext

do while not rs.eof
if (li mod 1)=0 then response.write vbcrlf&"<tr>"