56770_zhuanti.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<table width="100%" height="23" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="23" align="left" bgcolor="#FFC7C7">&nbsp; &nbsp; 精彩专题</td>
</tr>
</table>
<table  border="0" cellspacing="0" cellpadding="0" align="center" width="98%">
<tr>
<td height="2" colspan="3">
</tr>
<tr><td align="center">
<%
sql="SELECT top 1 * from NEWS where ok=true order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<a href="list.asp?id=<%=rs("id")%>"><img src="uppic/<%=trim(rs("firstImageName"))%>" width="140" height="120" border="0"></a>
<%
rs.movenext
loop
rs.close
set rs=nothing
%></td>
<td align=center height="22">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<%
sql="SELECT top 4 * from NEWS order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<td colspan="3" align="left">
&nbsp; <img src="images/arrow.gif">&nbsp; <a href="list.asp?id=<%=rs("id")%>"><%=left(rs("title"), 15)%></a>
</td></tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</td>
</tr>
</table>