Question

ASP如何图片横向显示，高手帮忙，急！！！！！！

我有一个ASP网站，现在的图片是树形向下排列的，我想让他横向显示如何实现，另外麻烦在告诉我一种让其横向右到左滚动不间断显示，

以下为代码，大家帮忙

<%dim action
action=request.QueryString("action")
select case action
case "ShowDetail"
call ShowDetail()
case else
call Main()
end select
%>
<% sub Main() %>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder1">
<%
intPageSize=5
strPageUrl="?Uid="&request("Uid")&""
SQLSelect="select I_SJID,C_ClassName,I_Hits,C_SJName,C_Img,C_Area,DT_AddDate,L_Check from TB_SJProducts"
SQLWhere=" where I_MemberID="&Uid&""
SQLOrder=" order by I_SJID desc"

SQLTable=trim(mid(SQLSelect,(instr(SQLSelect,"from")+4)))
SQL1="select count(*) from TB_SJProducts"&SQLWhere
intRecordCount=conn.execute(SQL1)(0)
call PageCute(intRecordCount,intPageSize)
SQL=SQLSelect&SQLWhere&SQLOrder
set rs=conn.execute(SQL)
if not rs.eof then
rs.move (CurrentPage-1)*intPageSize
for i=1 to intPageSize
%>
<tr>
<td width="33%" height="25" align="center"> <a href="?action=ShowDetail&Id=<%= rs("I_SJID") %>&Uid=<%= Uid %>">
<%if rs("C_Img")<>"" then response.write "<img src=../../UploadImgs/"&rs("C_Img")&" width=120 height=100 class='borderwhite' alt="&rs("C_SJName")&">" else response.write "<img src=../../UploadImgs/No_Pic.gif width=120 height=100 class='borderwhite'>" %>
</a> </td>
<td width="67%" height="25" align="center"><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td class="tdline"><strong><font color="#FF6600">项目名称：</a></font></strong><a href="?action=ShowDetail&Id=<%= rs("I_SJID") %>&Uid=<%= Uid %>"><%= left_title(rs("C_SJName"),30) %></a></td>
</tr>
<tr>
<td height="25" colspan="2" align="center"><hr size="1" class="tdline"></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.write "<tr bgcolor='#FFFFFF'><td colspan=2 align=center><font color='#FF0000'>暂无记录</font></td></tr>"
end if
%>
<tr>
<td height="25" colspan="2"><div align="right">
<%
rs.close
set rs=nothing
response.write Page_List(strPageUrl,CurrentPage,intPageCount,intRecordCount,intPageSize,5,"FF0000")
%>
</div></td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub %>

Answer 1

'楼主是两个问题.
横向显示资料库中的资料,可以这样比葫芦画瓢:
<td>'把要横向循环的语句写在储存格之内就可
<%for ...%><%=rs("显示字段名")%><br><%=rs("显示字段名1")%><%next%>
</td>
不间断右至左,用marquee:
<marquee directaion=left behavior=alternate height=120 width=120>这裏,请把横向显示资料库中的资料,所在的表格</marquee>
'这裏补充说明一下behavior的参数值
behavior=scroll|slide|alternate
scroll表示由一端滚动到另一端
slide表示由一端快速滑动到另一端
alternate表示在两端之间来回滚动