这段ASP网页代码,是横着显示产品小图片,如何改成纵向显示小图,谢谢啦
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title></title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url();
background-color: #FFFFFF;
}
-->
</style>
<!--#include file="include.asp" -->
<link href="images/css.css" rel="stylesheet" type="text/css" />
<link href="css/css.css" rel="stylesheet" type="text/css" />
<script language="JavaScript" type="text/javascript" src="js/prototype.js"></script>
<script language="JavaScript" type="text/javascript" src="js/effects.js"></script>
<script language="JavaScript" type="text/javascript" src="js/glider.js"></script>
</head>
<body oncontextmenu="window.event.returnValue=false"
onkeypress="window.event.returnValue=false"
onkeydown="window.event.returnValue=false"
onkeyup="window.event.returnValue=false"
ondragstart="window.event.returnValue=false"
onselectstart="event.returnValue=false">
<table height="90" border="0" cellpadding="0" cellspacing="0">
<tr>
<td style="padding-top:4px" align="left" valign="top"><img style="CURSOR: hand;" onClick="my_glider.previous();return false;" src="images/0011.jpg" /></td>
<td width="640" height="90" align="center" valign="middle"><DIV class=feature id=my-glider>
<DIV class=scroller>
<DIV class=content>
<%
Cid=Request("Cid")
if cid<>"" and isnumeric(cid) then
CLSIDLIST = P.GetSubClassID(cid)
CLSIDLIST=CLSIDLIST&cid
end if
if cid<>"" and isnumeric(cid) then
pcounts=P.Get_RsCount(conn,"[product]","cid in (" & CLSIDLIST &")")
else
pcounts=P.Get_RsCount(conn,"[product]","1=1")
end if
counts1=1
counts2=1
SearchKey=trim(Request("SearchKey"))
if session("user")="" then
Sql="select ArticleID,smallpic,title,cid from product where Elite=false"
else
Sql="select ArticleID,smallpic,title,cid from product where 1=1"
end if
if CLSIDLIST<>"" then
Sql=Sql&" and cid in (" & CLSIDLIST &")"
end if
if SearchKey<>"" then
Sql=Sql&" and (title like '%"&SearchKey&"%' or content like '%"&SearchKey&"%' )"
end if
Sql=Sql &" order by grade asc,ArticleID desc"
Set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<% if counts1=1 then %><DIV class=section id=section1><ul><% end if %>
<li><% if rs("smallpic")<>"" then %><a target="proshow" href="proshow.asp?cid=<%=cid%>&Sendid=<%=rs("ArticleID")%>"><img src="<%=rs("smallpic")%>" alt="<%=rs("title")%>" width="86" height="88" border="0" /><% else response.Write("No pic") end if %></a><span class="cp"><a target="proshow" href="proshow.asp?cid=<%=cid%>&Sendid=<%=rs("ArticleID")%>"><%=rs("title")%></a></span><li>
<% if counts1 mod 7 =0 or counts1=pcounts then %></ul></DIV><% end if %>
<%
if counts1 mod 7 =0 then %><DIV class=section id=section<%=counts2/7+1%>><ul>
<%
end if
%>
<%
counts1=counts1+1
counts2=counts2+1
rs.movenext
loop
rs.close
set rs=nothing
%>
</div>
</DIV>
<SCRIPT language=javascript type=text/javascript>
var my_glider = new Glider('my-glider', {duration:0.5});
</SCRIPT>
</DIV></td>
<td style="padding-top:4px" align="right" valign="top"><img src="images/0022.jpg" width="14" height="90" style="CURSOR: hand;" onClick="my_glider.next();return false" /></td>
</tr>
</table>
</body>
</html>
