zhuanti.asp

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

<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="25"> <table width="100%" height="25" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<% sqlt="select * from bigclass order by BigClassID desc"
set rst=server.createobject("ADODB.Recordset")
rst.open sqlt, conn, 1, 1
do while not rst.eof
%>
<td height="25" align="center"  onmouseover="this.bgColor='#FFFFFF';"onmouseout="this.bgColor='#CCCCCC'; "bgColor=#CCCCCC><a href="sort.asp?owen1=<%=rst("BigClassName")%>"><%=rst("BigClassName")%></a></td>
<%
rst.movenext
loop
rst.Close
set rst=nothing
%>
</tr>
</table></td>
</tr></table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="178" height="300" valign="top" bgcolor="efefef">
<!--#include file="left.asp"-->
</td>
<td width="580" align="center" valign="top" bgcolor="#FFFFFF"><br>
<table width="560" border="0" cellspacing="7" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" height="30" rowspan="2"><img src="images/sub.gif" width="31" height="30"></td>
<td width="76%" height="28">　<strong>推荐专题</strong></td>
<td width="18%" align="center"></td>
</tr>
<tr>
<td height="2" colspan="2" bgcolor="#6699cc"> </td>
</tr>
<tr>
<td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<%
sql="select top 4 * from NEWS where firstImageName<>'' and ok=true order by ID DESC"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql, conn, 1, 1
do while not rs.eof
%>
<td width="30%">
<a href="list.asp?id=<%=rs("id")%>" target="_blank" ><img src="uppic/<%=trim(rs("firstImageName"))%>" width="140" height="160" border="0"></a>
<br><a href="list.asp?id=<%=rs("id")%>" target="_blank" ><%=left(rs("title"), 15)%></a>
</td>     <%
rs.movenext
loop
rs.close
set rs=nothing%>
</tr>
</table> </td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="footer.asp"--></body>
</html>