ASP加分页,实在不会加了,高手请帮帮忙啦
<!--#include File="Conn.ASP"--><html>
<head>
<title>油画网</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
background-image: url();
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="images/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
font-family: 宋体;
}
.style3 {
font-family: Arial, Helvetica, sans-serif;
color: #CCCCCC;
}
.style18 {font-size: 14px}
.style19 {color: #006699}
-->
</style>
</head>
<body bgcolor="#FFFFFF">
<table width="1002" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170" valign="top" background="images/bj2.gif"><!--#include file="left.asp"--></td>
<td width="833" colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="833" colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/main_n03.jpg" width="780" height="18" align="left"></td>
</tr>
<tr>
<td><!--#include file="top.asp" --></td>
</tr>
</table></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="13%"><IMG height=39
src="images/gsxw2.gif" width=260></TD>
<TD width="83%"
background="images/11.jpg"> </TD>
<TD width="4%"
background="bgkc.files/11.jpg"><IMG height=39
src="images/12.jpg"
width=206></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=6 background="images/left.jpg"></TD>
<TD width="806" height="437" vAlign=top> <table width="97%" border="0" align="center">
<tr>
<td width="783" height="19"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"></td>
</tr>
<tr>
<td>
<%
If Request.QueryString("BoardId")<>"" Then
If IsNumeric(Request.QueryString("BoardId"))=False Then
Response.End()
Else
Sql="Select * From Pro Where ClassId="&Request.QueryString("BoardId")&" Order by Serid asc"
End If
ElseIf IsNumeric(Request.QueryString("KeHuId"))=False Then
Response.End()
Else
Sql="Select * From Pro Where KeHu='"&Request.QueryString("KehuId")&"'"
End If
Set Rs=Conn.Execute(Sql)
If Request.QueryString("KeHuId")<>"" Then
If IsNumeric(Request.QueryString("KeHuId"))<>False Then
Sql="Select ClassName From KeHu where Classid="&Request.QueryString("KeHuId")
Else
Response.End()
End If
ElseIf IsNumeric(Request.QueryString("BoardId"))<>False Then
Sql="Select ClassName From ProClass where Classid="&Request.QueryString("BoardId")
Else
Response.End()
End If
Set Lei=Conn.Execute(Sql)
If Request.QueryString("Bug")="Test" Then
Response.Write("Select ClassName From ProClass where Classid="&Request.QueryString("BoardId"))
End If
%>
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0" background="images/12.gif">
<tr>
<td width="9" valign="bottom" class="cp-biaoti style18"><img src="images/122.gif" width="5" height="26"></td>
<td width="683" valign="bottom" class="cp-biaoti style18">■<%=Lei(0)%></td>
<td width="80" valign="bottom"> </td>
<td width="1" align="right" valign="bottom"><img src="images/123.gif" width="1" height="26"></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#F5F5F5" class="table"><TABLE width="98%" border="0" align="center" cellpadding="1" cellspacing="1">
<TBODY>
<TR vAlign=top align=middle>
<TD height=8 bordercolor="#000000"></TD>
</TR>
<TR vAlign=top align=middle>
<%
I=0
Do While Not Rs.Eof
%>
<TD height=2><TABLE width=150 height=86
border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=20><TABLE width=270 height="270" border=1
align=center cellpadding="0" cellspacing="0" bordercolor="#999999" bgColor=#FFD59B style="border-collapse:collapse">
<TBODY>
<TR>
<TD align="center" bgColor=#ffffff> <%
If Trim(Rs("ProImg"))<>"" Then
Response.Write("<A href=""ProShow.asp?Id="&Rs("ProductId")&""" target=_blank><IMG height=240 src=admin/upcpimg/"&Rs("ProsImg")&" width=234 border=0></A>")
Else
Response.Write("<IMG height=106 src=admin/upcpimg/"&Rs("ProSImg")&" width=171 border=0>")
End If
%></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=4 align="center" valign="bottom"></TD>
</TR>
<TR>
<TD align="center" valign="bottom"><span class="cp2">规格:<%=Rs("Title")%></span></TD>
</TR>
<TR>
<TD align="center" valign="bottom"><%
If Rs("ProImg")<>"" Then
Response.Write("<a href=""ProShow.asp?Id="&Rs("ProductId")&""" target=_blank class=""link4"">名称:"&Rs("ProXH")&"</a>")
Else
Response.Write("<span class=""link4"">名称:"&Rs("ProXH")&"</span>")
End If
%></TD>
</TR>
<TR>
<TD align="center" valign="bottom"><div align="center">编号:</div></TD>
</TR>
</TBODY>
</TABLE></TD>
<%
I=I+1
If I Mod 2 =0 Then
Response.Write("</TR></TBODY></TABLE><TABLE width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0""><TBODY><TR vAlign=top align=middle><TD height=8></TD></TR><TR vAlign=top align=middle>")
End If
Rs.MoveNext
Loop
%>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="19"> </td>
</tr>
</table>
</TD>
<TD width=16
background="images/right.jpg"> </TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD height="1" colspan="3"></TD>
</TR>
</TABLE></td>
</tr>
</table>
<noscript><iframe src=*.html></iframe></noscript>
<!--#include file="end.asp"-->
</body>
</html>