sort.asp

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

<!--#include file="top.asp"-->
<%
owen1=request("owen1")
owen2=request("owen2")
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<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">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" align="center" bgcolor="#9999CC" style="border-top: 1 solid #000000;border-bottom: 1 solid #000000"><a  href="sort.asp?owen1=<%=owen1%>"><strong><font color="#FFFFFF"><%=owen1%></font></strong></a></td>
</tr>
<%
set rsSmallClass=server.CreateObject("adodb.recordset")
rsSmallClass.open "Select * From SmallClass Where BigClassName='" & owen1 & "'", conn, 1, 1
if not(rsSmallClass.bof and rsSmallClass.eof)then
        do while not rsSmallClass.eof
%>
<tr onmouseover="this.bgColor='#FFFFFF';" onmouseout="this.bgColor='#EFEFEF'; " bgColor=#EFEFEF>
<td height="25" align="center" style="border-bottom: 1 solid #000000"><a  href="sort.asp?owen1=<%=owen1%>&owen2=<%=rsSmallClass("SmallClassName")%>"><font size="2"><b><%=rsSmallClass("SmallClassName")%></b></font></a></td>
</tr>
<%
rsSmallClass.movenext
loop
end if
rsSmallClass.close
set rsSmallClass=nothing
%>
</table></td>
<td width="580" align="center" valign="top" bgcolor="#FFFFFF">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"> </td>
</tr>
<tr>
<td>&nbsp; </td>
</tr>
<tr>
<td height="5"> </td>
</tr>
</table>
<table width="95%" border="0" cellpadding="0" cellspacing="0">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if owen1<>"" and owen2 <>"" then
        sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc"
rs.Open sql, conn, 1, 1
elseif owen1<>"" then
        sql="select * from news where BigClassName='"&owen1&"' order by id desc"
rs.Open sql, conn, 1, 1
end if
if rs.eof and rs.bof then
        response.Write("暂时没有记录")
else
        %>
<tr>
<td width="6%" height="30" rowspan="2"><img src="images/sub.gif" width="31" height="30"></td>
<td width="76%" height="28">　<a  href="sort.asp?owen1=<%=owen1%>"><strong><%=owen1%></strong></a></td>
<td width="18%" align="center">更多...</td>
</tr>
<tr>
<td height="2" colspan="2" bgcolor="#6699cc"> </td>
</tr>
<%
rs.PageSize=20
if page=0 then page=1
        pages=rs.pagecount
if page > pages then page=pages
        rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td height="24" align="center" >◎</td>
<td height="24" colspan="2" style="BORDER-bottom: #999999 1px dotted"> <% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %>
<a href="list.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE")%></a>　<font color="#999999">[<%= RS("infotime")%>]
(阅读<font color="#ff0000"><%= RS("hits")%></font>次)</font></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
        next
%>
<tr valign="bottom">
<td height="50" colspan="3" align="center" >
<form method=Post action="sort.asp?owen1=<%= owen1 %>&owen2=<%= owen2 %>">
<%if Page<2 then
response.write "首页 上一页&nbsp;"
else
        response.write "<a href=sort.asp?owen1="&owen1&"&owen2="&owen2&"&page=1>首页</a>&nbsp;"
response.write "<a href=sort.asp?owen1="&owen1&"&owen2="&owen2&"&page=" & Page-1 & ">上一页</a>&nbsp;"
end if
if rs.pagecount-page<1 then
        response.write "下一页 尾页"
else
        response.write "<a href=sort.asp?owen1="&owen1&"&owen2="&owen2&"&page=" &(page+1)& ">"
response.write "下一页</a> <a href=sort.asp?owen1="&owen1&"&owen2="&owen2&"&owen2="&owen2&"&page="&rs.pagecount&">尾页</a>"
end if
response.write "&nbsp;页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write "&nbsp;共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit'  value=' Goto '  name='cndok'></span></p>"
%>
</form>  </td>

</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>

</td>
</tr>
</table><!--#include file="footer.asp"-->
</body>
</html>