UC知道asp图片横向的问题
来源：百度知道 编辑：UC知道 时间：2024/06/22 18:19:37
Function Prolist(ts,ynpage)
' oRs.Close
Dim Protype,Pic,ProSql
Protype = saferequest("type",1)
if Protype = "" then
ProSql = "select * from Pro order by Pro_ID desc"
else
ProSql = "select * from Pro where Pro_type = "&Protype&" order by Pro_ID desc"
end if
oRs.PageSize = ts
oRs.CursorLocation = 3
oRs.open ProSql,oConn,1,1
call page1()
for i=1 to oRs.PageSize
if oRs.Eof then exit for
%>
<table width="36%" border="1" align="center" cellspacing="0" bordercolor="#EAEFF3" class="heiz">
<tr>
<td align="center" valign="middle">
<%
if oRs("Pro_Pic") <> "" then
if instr(oRs("Pro_Pic"),"http")>0 then
' oRs.Close
Dim Protype,Pic,ProSql
Protype = saferequest("type",1)
if Protype = "" then
ProSql = "select * from Pro order by Pro_ID desc"
else
ProSql = "select * from Pro where Pro_type = "&Protype&" order by Pro_ID desc"
end if
oRs.PageSize = ts
oRs.CursorLocation = 3
oRs.open ProSql,oConn,1,1
call page1()
for i=1 to oRs.PageSize
if oRs.Eof then exit for
%>
<table width="36%" border="1" align="center" cellspacing="0" bordercolor="#EAEFF3" class="heiz">
<tr>
<td align="center" valign="middle">
<%
if oRs("Pro_Pic") <> "" then
if instr(oRs("Pro_Pic"),"http")>0 then
response.write "<table><tr>" '加入表格
for i=1 to oRs.PageSize
if oRs.Eof then exit for
if(i<>0 and (i mod 2)=0) then response.write "</tr><tr>" '两条记录就输出
%>
<td>
…………
</td>
<%
oRs.movenext
next
response.write "</tr></table>"
if ynpage=1 then Call Page()
oRs.close
End Function
---------------------------------------------
就是说用<tr>来排,如果多于2个记录就增加坚排
你看看错误原因提示
这是图片横向滚动的代码,你自己看看吧!
<HTML><HEAD><TITLE>无标题文档</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1264" name=GENERATOR>
<link href="css/css.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY leftMargin=0 topMargin=2 marginheight="