56770_gg.asp

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

<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<tr>
<td>
<table cellspacing=0 cellpadding=0 width="100%">
<tr>
<td style="padding-left:10px;padding-top:2px" width="100%" height="23" bgcolor="#FFC7C7">
&nbsp; 商城动态</td>
</tr>
</table>
</td>
</tr>
<td>

<table width="180" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td style="LINE-HEIGHT: 210%" align="center"  bgcolor="#FFE7E9">
<marquee  height=108 direction=up onMouseOver=this.stop() onMouseOut=this.start() scrollamount="3"  scrolldelay="166" border="0">
<%
'读取广告内容
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sqlnews="select * from 56770_news where newstype='gg' order by hits DESC"
rsnews.open sqlnews, conn, 3, 3
do while not rsnews.eof%>
<DIV align=center>
<img src="images/guangbo1.gif">
<%
message = replace(message, chr(32), "&nbsp;")
message = replace(rsnews("message"), chr(13), "<br>")
%>
<%=message%><br><%=rsnews("idate")%>
</DIV>　　
<% rsnews.movenext
loop
rsnews.close
set rsnews=nothing%>
</marquee></td>
</TR>
</table>
</td>
</tr>
<tr>
<td align="right" bgcolor="#FFE7E9">&nbsp; <a href="help.asp"><img src="images/more2.gif" width="42" height="13" border="0"></a></td>
</tr>
</table>