香港虚拟主机
本站公告
新闻资讯
虚拟主机帮助
域名帮助
服务器帮助
邮箱帮助
建站帮助
网站推广帮助
VPS帮助
特色主机帮助
网站备案专题
会员帮助信息
代理帮助信息
成功案例
我司获香港虚拟主机排行榜十…
香港虚拟主机金秋促销活动正…
百度整治给SEO带来了新的希望
百度同时收录网站带WWW和不带…
百度对原创内容的判断标准 如…
如何建设网站 网站建设三步曲
如何挑选老域名 老域名有那些…
域名常见故障与分析
虚拟主机基本参数介绍
交换链接的技巧 谈一下选择交…
您现在的位置: 江南数联 >> 帮助中心 >> 虚拟主机帮助 >> 正文

asp图片排列分页简单办法

  作者:admin    来源:本站原创    点击次数:29     更新时间:2012-9-10 7:44:35  
     
 
关注石头有礼
 
 

asp图片排列分页简单办法

办法一:调用以下代码就可以了

 

sub ArticleContent(intTitleLen)
dim i,strTemp
i=0
x=1
response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td>")
do while not rsArticle.eof
if x=1 then
response.Write("<tr>")
end if
strTemp=""
'strTemp = strTemp & ""
strTemp= strTemp & "<td><table width=100% border=0 cellspacing=3 cellpadding=0>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td width=25% rowspan=1>"
strTemp= strTemp & "<div align=center><a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">"
strTemp= strTemp & "<img onload='javascript:DrawImage(this);'border=0 src=" & rsArticle("DefaultPicUrl") & ">"
strTemp= strTemp & "</a></div></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "<tr><td align=center rowspan=1 height=25>"
strTemp= strTemp & "<a href=ArticleShow.asp?ArticleID=" & rsArticle("articleid") & ">" & rsArticle("Title") & ""
strTemp= strTemp & "</a></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "<tr>"
strTemp= strTemp & "<td height=1></td>"
strTemp= strTemp & "</tr>"
strTemp= strTemp & "</table></td>"
response.write strTemp
rsArticle.movenext
if x<=3 then
x=x+1
else
response.Write("</tr>")
x=1
end if
i=i+1
if i>=MaxPerPage then exit do
loop
response.Write("</table>")
end sub

 

办法二:这段代码直接用,不用调用

 

<tr>
<td colspan="3">
<%dim j,t
sql="select * from jchdpic order by hdid desc"
rs.open sql,connhd,1,1
j=1
t=0
rs.pagesize=15
page=int(request.querystring("page"))
if page<=0 then page=1
if request.querystring("page")="" then page=1
rs.absolutepage=page%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td> </td>
</tr>
<%if j=1 then%>
<tr align="center">
<%end if
Do While Not rs.EOF%>
<td>
<table width="100%" height="105" border="0" cellpadding="0" cellspacing="2">
<tr>
<td width="30%"><div align="center"><a href="party/<%=rs("file")%>" target=_blank><img border="0" src="party/<%=rs("file")%>" width="140" height="105"></a></div></td>
</tr>
<tr>
<td width="30%"><div align="center"><a href="party/<%=rs("file")%>" target=_blank><%=rs("image")%></a></div></td>
</tr>
</table>
</td>
<%rs.MoveNext
if j<3 then
j=j+1
else%>
</tr>
<tr>
<%
j=1
end if
t=t+1
if t>=15 then exit do
Loop
%>
</tr>
</table>
</tr>
<tr>
<td width="61%"><div align="right">共<B><%=rs.pagecount%></B>页,第
<%dim i,ii,iii
ii=page-3
iii=page+3
if iii>rs.pagecount then iii=rs.pagecount
if ii<=0 then ii=1
for i=ii to iii
response.write("[<a href=?page="&i&">"&i&"</a>]")
next%>
页</div></td>
<td width="39%"><div align="center">转到第
<select name="menu1" onChange="location.href='?page='+this.options[selectedIndex].value">
<%i=1
do while i<=rs.pagecount
if i=page then
response.write("<option selected value="&i&">"&i&"</option>")
else
response.write("<option value="&i&">"&i&"</option>")
end if
i=i+1
loop
rs.close%>
</select>
页 </div></td>
</tr>
</table></td>
</tr>

本章关健词:江南数联 域名注册 海外虚拟主机 G享虚拟主机 国内虚拟主机 企业邮箱 网站建设 自助建站 400电话申请 微聚商

 
  版权申请:asp图片排列分页简单办法出自江南数联dns06.com未经授权请勿转载!  
 
  • 上一篇帮助:

  • 下一篇帮助:
  •  
         

    扫一扫关注公众号有礼
    Copyright@2004-2015 江南数联 版权所有未经授权请勿复制!
    《中华人民共和国增值电信业务经营许可证》ISP证编号:皖B2-20080036 湘B2-20160056
    公司全称:永州石头网络技术有限公司(运营部)
    地址: 中国·湖南省永州市育才路158号 服务热线:400 616 9260
    安徽公司:安徽仁科信息技术有限公司 地址:合肥万和新城广场A-608 
    关注词:网站空间虚拟空间空间域名域名空间域名主机网站空间哪家好网站空间多少钱