神马品牌网煤炭商贸公司简介范文:asp在数据库中提取的图片如何实现分两列显示
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 23:33:03
strSql="select * from WEB_ExpertIntro order by orderid"
'response.write(strSql)'
rs.open strSql,conn,1,1
if not rs.eof then
totalItem=rs.recordcount
rs.pagesize=MaxPageSet '每页显示条数'
pagesizenum=rs.pagesize
rs.AbsolutePage=pageNumber
total_log=rs.pagecount
for i=0 to rs.pagesize-1:if rs.eof then exit for
if i>100 then exit for
leaderIntroID=rs("LeaderIntroID")
LeaderName=rs("LeaderName")
OfficialTitle=rs("OfficialTitle")
LeaderDuty=rs("LeaderDuty")
leaderphotosrc=rs("leaderphotosrc")
%>
<tr>
<td height="25" align="center"><a href="expertintro_show.asp?LeaderIntroID=<%=LeaderIntroID%>&AOName=<%=AOName%>&AOID=<%=AOID%>"><img src=<%=leaderphotosrc%> width=70 height=80 border="0"></a></td>
<td height="25"><%=OfficialTitle%> <%=LeaderDuty%></td>
</tr>
<tr>
<td width="14%" height="25" align="center"><div align="center"><a href="expertintro_show.asp?LeaderIntroID=<%=LeaderIntroID%>&AOName=<%=AOName%>&AOID=<%=AOID%>"><%=LeaderName%></a> </div></td>
<td width="86%" height="25"> </td>
</tr>
试试这样做..
<%if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from WEB_ExpertIntro order by orderid"
rs.pagesize =12
rs.OPEN sql,Conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
top=1
if rs.bof and rs.eof then
response.write "<tr><td align='center'>没有任何文件</tr></td>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while not rs.eof and irecordsshown<rs.pagesize
Response.Write"<tr align='center'>"
for i=1 to 3
Response.Write"<td width='25%'>"
if not rs.eof then
%>
<img src=<%=leaderphotosrc%>>
<%
top=top+1
irecordsshown=irecordsshown+1
rs.movenext
end if
next
Response.Write"</tr>"
if top>12 then exit do
loop
end if
rs.Close
set rs=nothing
Response.Write"</table>"
%>