Question

asp源码里动态图片如何设置成横排的？原本是竖排的

图片区域对应的asp源码：图片区域的样式好像没有，没找到
<% pages = 3 '每页显示条数
pagenc = 2 'N*2+1 分页显示数
TrimStr = 15 '字符截取ImgWidth = 200 ' 图片宽度
ImgHeight = 100 '图片高度
myself = "?SortID="&SortID&"&" '本页URLfField = "*" '读取字段
'------------------------------------------------
datafrom="dode_"&dode
datawhere="where "&ItemRecT&" "
if SortID>0 then datawhere=datawhere&"and SortID="&SortID&" "
taxis="order by ItemID desc "
sql="select count(ItemID) as idCount from ["& datafrom &"]" & datawhere
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idCount=rs("idCount")
'获取记录总数
if(idcount>0) then'如果记录总数=0,则不处理
if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
pagec=int(idcount/pages)'获取总页数
else
pagec=int(idcount/pages)+1'获取总页数
end if
'获取本页需要用到的id============================================
'读取所有记录的id数值,因为只有id所以速度很快
sql="select ItemID from ["& datafrom &"] " & datawhere & taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize = pages '每页显示记录数
if page < 1 then page = 1
if page > pagec then page = pagec
if pagec > 0 then rs.absolutepage = page
for i=1 to rs.pagesize
if rs.eof then exit for
if(i=1)then
sqlid=rs("ItemID")
else
sqlid=sqlid &","&rs("ItemID")
end if
rs.movenext
next
'获取本页需要用到的id结束
end if
if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
'用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
sql="select "&fField&" from ["& datafrom &"] where ItemID in("& sqlid &") "&taxis
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
'==========================================
'开始填充内容
'==========================================
Response.Write "<table width='100px' border='0' cellspacing='3' cellpadding='3'>" & vbCrLf
while not rs.eof '填充数据到表格
'------------------------------------------------
fUrl = dode&".asp?SortID="&Int(Rs("SortID"))&"&ItemID="&Int(Rs("ItemID"))
Response.Write "<tr valign='top'>" & vbCrLf
If Trim(Rs("Item3")) = "" Then
Response.Write "<td width='100' align='center'><a href='"&fUrl&"'><img src='Images/nopic.gif'></a></td>" & vbCrLf
Else
Response.Write "<td width='100' align='center'><div><a href='"&fUrl&"'><img src='"&Replace(Trim(Rs("Item3")),"../","")&"' title='"&Trim(Rs("Item1"))&"' width='"&ImgWidth&"' height='"&ImgHeight&"'></a></div></td>" & vbCrLf
End If
Response.Write "</tr>" & vbCrLf
'------------------------------------------------
rs.movenext
wend
Response.Write "</table></div>" & vbCrLf
end if
%>

Answer 1

while not rs.eof '填充数据到表格
'------------------------------------------------
fUrl = dode&".asp?SortID="&Int(Rs("SortID"))&"&ItemID="&Int(Rs("ItemID"))
Response.Write "<tr valign='top'>" & vbCrLf
If Trim(Rs("Item3")) = "" Then
Response.Write "<td width='100' align='center'><a href='"&fUrl&"'><img src='Images/nopic.gif'></a></td>" & vbCrLf
Else
Response.Write "<td width='100' align='center'><div><a href='"&fUrl&"'><img src='"&Replace(Trim(Rs("Item3")),"../","")&"' title='"&Trim(Rs("Item1"))&"' width='"&ImgWidth&"' height='"&ImgHeight&"'></a></div></td>" & vbCrLf
End If
Response.Write "</tr>" & vbCrLf
'------------------------------------------------
rs.movenext
wend

这段话改为
Response.Write "<tr valign='top'>" & vbCrLf
while not rs.eof '填充数据到表格
'------------------------------------------------
fUrl = dode&".asp?SortID="&Int(Rs("SortID"))&"&ItemID="&Int(Rs("ItemID"))

If Trim(Rs("Item3")) = "" Then
Response.Write "<td width='100' align='center'><a href='"&fUrl&"'><img src='Images/nopic.gif'></a></td>" & vbCrLf
Else
Response.Write "<td width='100' align='center'><div><a href='"&fUrl&"'><img src='"&Replace(Trim(Rs("Item3")),"../","")&"' title='"&Trim(Rs("Item1"))&"' width='"&ImgWidth&"' height='"&ImgHeight&"'></a></div></td>" & vbCrLf
End If
'------------------------------------------------
rs.movenext
wend
Response.Write "</tr>" & vbCrLf

很简单的原理啊！
你去了解一下html语音中 table 的相关！