如这里是坚排显示:
如何改成像这样的横排显示呀:
还有如何把酷购主页新品展示由两行四列变为三行四列呀
具体应该怎么操作下呢?能说的详细一些吗,谢谢高手了
就是竖排的代码?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
if catid="" or catid = 0 then
conn.close
set conn = Nothing
response.Redirect "procat.asp"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
do while not PID = 0
rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('您输入的参数非法,请正确操作!');history.go(-1);</script>"
rs.close
set rs = Nothing
conn.Close
set conn=nothing
response.end
end if
lstcat = "-><a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
catstr = ""&rs("category")&"->"&catstr
CaID = PID
CatN = rs("category")
PID = rs("ParentID")
rs.close
loop
rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
strcat = rs("category")
strmeta = rs("meta")
strintro = rs("intro")
strpredate=rs("predate")
strproductdate=rs("productdate")
strother=rs("other")
strgrade=rs("grade")
strpretype=rs("pretype")
strtype=rs("type")
rs.close
set rs = Nothing
%>
<title><%=catstr %><%=webname%>--</title>
<meta name="description" content="虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 互联在线,全新体验:网站建设,国际域名,虚拟主机,企业邮箱,短信网址,国外空间,网站推广,电子商务,www.szze.com等....">
<meta name="keywords" content="互联在线,全新体验:虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 网站建设,国际域名,虚拟主机,企业邮箱,短信网址,电子商务,国外空间,网站推广。">
<META content=<%=strmeta %>,name=keywords>
<META content=<%=strintro %>,name=description>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="img/koogou.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
<td rowspan="3" width="212" height="446" valign="top">
<table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
</tr>
<tr>
<td background="image/images/left_02.gif" width="212" height="127">
<!-- #include file="login.asp"-->
</td>
</tr>
<tr>
<td width="212" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<% if left1<>"" then %>
<a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a>
<% end if %>
<!--左侧-->
<br>
<% if left2<>"" then %>
<a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a>
<% end if %>
<!--左侧-->
</td>
</tr>
</table>
<table height=43 cellspacing=0 cellpadding=0
width="100%" align=center
background=img/contact.gif
border=0>
<tbody>
<tr>
<td valign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="100%"
border=0 height="35">
<tbody>
<tr>
<td
style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma"
valign=top><img
src="img/left_customer_01.gif"
align=absMiddle width="21" height="14"><b><%= tel %></b></td>
</tr>
<tr>
<td
style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma"
valign=top height=10><img
src="img/left_customer_02.gif"
align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody></tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
</td>
<td rowspan="3" width="747" valign="top">
<table width="747" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!-- #include file="ad.asp"-->
</td>
</tr>
<tr>
<td height="57" background="image/CATAGORY.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%"> </td>
<td width="56%"><a href="index.asp"><b> <font
face=Arial><font color="#3399CC"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>-><a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></font> </b></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">
<!--#include file="include/catnews.asp"-->
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
<tbody>
<tr>
<td class=ml width="11"></td>
<td class=ml width="1" background="image/line.gif"></td>
<td class=ml width="10"></td>
<td align=left width="716" valign="top">
<TABLE width="716" align=center>
<TBODY>
<TR>
<TD class=mm>
<TABLE WIDTH="710" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
<tr>
<td width="580" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="710">
<tr>
<td width="380" valign="top" class=table-youxia align="left">
</td>
<td width="200" valign="top" class=table-xia align="center">
</td>
</tr>
<tr>
<td width="580" valign="top" align="center" colspan="2">
<%
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select prename,company,mark,other,grade,pretype,type,predate,productdate,intro,name,id,introduce,price1,price2,discount,pic,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起,此分类暂时还没有商品!</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="716" border="0" align="center" cellpadding="0" cellspacing="0" height="195">
<%
do while not rs.eof%>
<tr valign="top">
<td width="20%" align="center" class=table-xia>
<TABLE WIDTH="140" HEIGHT="140" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD height="140" width="140" colspan="2" align="center">
<a href=product.asp?id=<% = rs("id") %> target="_blank">
<% if trim(rs("pic"))<>"" then %>
</a>
<table class="kuang" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<table border="0" cellspacing="5" cellpadding="5">
<tr>
<td><a href=product.asp?id=<% = rs("id") %> target="_blank"><img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a>
<% end if %>
</TD>
</TR>
</TABLE>
</td>
<td width="80%" class=table-xia>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6%"> </td>
<td width="94%" valign="top">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" height="222">
<tr>
<td colspan="3"> <a href=product.asp?id=<%=rs("id")%>><font color="#227776"><b><%=trim(rs("name"))%></b></font></a>
<hr size="1" class="h2">
</td>
</tr>
<tr>
<td colspan="3"> <%=trim(rs("company"))%><a href=timesmark.asp?MarkName=<% = rs("mark") %>><font color="#FF6600">
<% = rs("mark") %>
</font></a></td>
</tr>
<tr>
<td colspan="3"><%=trim(rs("intro"))%><%=trim(rs("introduce"))%></td>
</tr>
<tr>
<td>
<% = rs("predate") %>
<%=trim(rs("productdate"))%></td>
<td>
<% = rs("other") %>
<%=trim(rs("grade"))%></td>
<td>
<% = rs("pretype") %>
<%=trim(rs("type"))%></td>
</tr>
<tr>
<td width="37%"> </td>
<td width="32%">会 员 价:<FONT COLOR="#FF6600">¥</FONT><font color=red><%=rs("price2")%>元</font></td>
<td width="31%"> </td>
</tr>
<% if rs("stock") > 0 then %>
<TR align="center">
<TD colspan="3">
<table width="55%" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto_big.gif align=absmiddle border=0></a></td>
<td> </td>
</tr>
</table>
</TD>
</TR>
<% else %>
<tr>
<td colspan="3" align="center"><font color="#FF6600">暂时缺货</font></td>
</tr>
<% end if %>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" valign="middle" align="center" class=table-xia>
<hr size="1" dashed color="#DAE9E7" width="100%" class="h1">
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<% = filename %>?catid=<% = catid %>>
<%
If CurrentPage<2 Then %><div align="center">
首页 上页
<% Else %><div align="center">
<a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a>
<%
End If
If n-currentpage<1 Then %>
下页 尾页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a>
<a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a>
<% End If %>
第 <b>
<% = CurrentPage %>
</b>页 共 <b>
<% = n %>
</b>页 共 <b>
<% = totalnumber %>
</b>件商品 每页 <b>
<% = maxperpage %>
</b> 件商品 转到第:
<input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
页
<input type='submit' class='contents' value='跳转' name='cndok'>
</form>
<%
End Function
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td class=mr width="10"></td>
</tr>
</tbody>
</table>
</td>
<td rowspan="3" width="15"> </td>
</tr>
<tr>
<td width="29" height="48"> </td>
</tr>
<tr>
<td height="29">
<p> </p>
<p> </p>
</td>
</tr>
</table>
<!--#include file="include/footer.asp"-->
</BODY></HTML>
请问应该如何操作呢
请问具体应该如何操作呢?
这里代码?
具体应该怎么操作下呢?能说的详细一些吗,谢谢高手了
就是竖排的代码?
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
if catid="" or catid = 0 then
conn.close
set conn = Nothing
response.Redirect "procat.asp"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
do while not PID = 0
rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('您输入的参数非法,请正确操作!');history.go(-1);</script>"
rs.close
set rs = Nothing
conn.Close
set conn=nothing
response.end
end if
lstcat = "-><a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
catstr = ""&rs("category")&"->"&catstr
CaID = PID
CatN = rs("category")
PID = rs("ParentID")
rs.close
loop
rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
strcat = rs("category")
strmeta = rs("meta")
strintro = rs("intro")
strpredate=rs("predate")
strproductdate=rs("productdate")
strother=rs("other")
strgrade=rs("grade")
strpretype=rs("pretype")
strtype=rs("type")
rs.close
set rs = Nothing
%>
<title><%=catstr %><%=webname%>--</title>
<meta name="description" content="虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 互联在线,全新体验:网站建设,国际域名,虚拟主机,企业邮箱,短信网址,国外空间,网站推广,电子商务,www.szze.com等....">
<meta name="keywords" content="互联在线,全新体验:虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 网站建设,国际域名,虚拟主机,企业邮箱,短信网址,电子商务,国外空间,网站推广。">
<META content=<%=strmeta %>,name=keywords>
<META content=<%=strintro %>,name=description>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="img/koogou.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
<td rowspan="3" width="212" height="446" valign="top">
<table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
</tr>
<tr>
<td background="image/images/left_02.gif" width="212" height="127">
<!-- #include file="login.asp"-->
</td>
</tr>
<tr>
<td width="212" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<% if left1<>"" then %>
<a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a>
<% end if %>
<!--左侧-->
<br>
<% if left2<>"" then %>
<a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a>
<% end if %>
<!--左侧-->
</td>
</tr>
</table>
<table height=43 cellspacing=0 cellpadding=0
width="100%" align=center
background=img/contact.gif
border=0>
<tbody>
<tr>
<td valign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="100%"
border=0 height="35">
<tbody>
<tr>
<td
style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma"
valign=top><img
src="img/left_customer_01.gif"
align=absMiddle width="21" height="14"><b><%= tel %></b></td>
</tr>
<tr>
<td
style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma"
valign=top height=10><img
src="img/left_customer_02.gif"
align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody></tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
</td>
<td rowspan="3" width="747" valign="top">
<table width="747" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!-- #include file="ad.asp"-->
</td>
</tr>
<tr>
<td height="57" background="image/CATAGORY.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%"> </td>
<td width="56%"><a href="index.asp"><b> <font
face=Arial><font color="#3399CC"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>-><a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></font> </b></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">
<!--#include file="include/catnews.asp"-->
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
<tbody>
<tr>
<td class=ml width="11"></td>
<td class=ml width="1" background="image/line.gif"></td>
<td class=ml width="10"></td>
<td align=left width="716" valign="top">
<TABLE width="716" align=center>
<TBODY>
<TR>
<TD class=mm>
<TABLE WIDTH="710" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
<tr>
<td width="580" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="710">
<tr>
<td width="380" valign="top" class=table-youxia align="left">
</td>
<td width="200" valign="top" class=table-xia align="center">
</td>
</tr>
<tr>
<td width="580" valign="top" align="center" colspan="2">
<%
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select prename,company,mark,other,grade,pretype,type,predate,productdate,intro,name,id,introduce,price1,price2,discount,pic,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起,此分类暂时还没有商品!</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="716" border="0" align="center" cellpadding="0" cellspacing="0" height="195">
<%
do while not rs.eof%>
<tr valign="top">
<td width="20%" align="center" class=table-xia>
<TABLE WIDTH="140" HEIGHT="140" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD height="140" width="140" colspan="2" align="center">
<a href=product.asp?id=<% = rs("id") %> target="_blank">
<% if trim(rs("pic"))<>"" then %>
</a>
<table class="kuang" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<table border="0" cellspacing="5" cellpadding="5">
<tr>
<td><a href=product.asp?id=<% = rs("id") %> target="_blank"><img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a>
<% end if %>
</TD>
</TR>
</TABLE>
</td>
<td width="80%" class=table-xia>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6%"> </td>
<td width="94%" valign="top">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" height="222">
<tr>
<td colspan="3"> <a href=product.asp?id=<%=rs("id")%>><font color="#227776"><b><%=trim(rs("name"))%></b></font></a>
<hr size="1" class="h2">
</td>
</tr>
<tr>
<td colspan="3"> <%=trim(rs("company"))%><a href=timesmark.asp?MarkName=<% = rs("mark") %>><font color="#FF6600">
<% = rs("mark") %>
</font></a></td>
</tr>
<tr>
<td colspan="3"><%=trim(rs("intro"))%><%=trim(rs("introduce"))%></td>
</tr>
<tr>
<td>
<% = rs("predate") %>
<%=trim(rs("productdate"))%></td>
<td>
<% = rs("other") %>
<%=trim(rs("grade"))%></td>
<td>
<% = rs("pretype") %>
<%=trim(rs("type"))%></td>
</tr>
<tr>
<td width="37%"> </td>
<td width="32%">会 员 价:<FONT COLOR="#FF6600">¥</FONT><font color=red><%=rs("price2")%>元</font></td>
<td width="31%"> </td>
</tr>
<% if rs("stock") > 0 then %>
<TR align="center">
<TD colspan="3">
<table width="55%" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto_big.gif align=absmiddle border=0></a></td>
<td> </td>
</tr>
</table>
</TD>
</TR>
<% else %>
<tr>
<td colspan="3" align="center"><font color="#FF6600">暂时缺货</font></td>
</tr>
<% end if %>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" valign="middle" align="center" class=table-xia>
<hr size="1" dashed color="#DAE9E7" width="100%" class="h1">
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<% = filename %>?catid=<% = catid %>>
<%
If CurrentPage<2 Then %><div align="center">
首页 上页
<% Else %><div align="center">
<a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a>
<%
End If
If n-currentpage<1 Then %>
下页 尾页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a>
<a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a>
<% End If %>
第 <b>
<% = CurrentPage %>
</b>页 共 <b>
<% = n %>
</b>页 共 <b>
<% = totalnumber %>
</b>件商品 每页 <b>
<% = maxperpage %>
</b> 件商品 转到第:
<input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
页
<input type='submit' class='contents' value='跳转' name='cndok'>
</form>
<%
End Function
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td class=mr width="10"></td>
</tr>
</tbody>
</table>
</td>
<td rowspan="3" width="15"> </td>
</tr>
<tr>
<td width="29" height="48"> </td>
</tr>
<tr>
<td height="29">
<p> </p>
<p> </p>
</td>
</tr>
</table>
<!--#include file="include/footer.asp"-->
</BODY></HTML>
请问应该如何操作呢
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
dim catid,i,strcat
catid=SafeRequest("catid",1)
CatList =catid
PID = catid
if catid="" or catid = 0 then
conn.close
set conn = Nothing
response.Redirect "procat.asp"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
do while not PID = 0
rs.open "Select categoryid,category,ParentID From category Where categoryid="&PID,conn,1,1
if rs.eof and rs.bof then
response.Write "<script LANGUAGE='javascript'>alert('您输入的参数非法,请正确操作!');history.go(-1);</script>"
rs.close
set rs = Nothing
conn.Close
set conn=nothing
response.end
end if
lstcat = "-><a href=cat.asp?catid="&rs("categoryid")&">"&rs("category")&"</a>"&lstcat
catstr = ""&rs("category")&"->"&catstr
CaID = PID
CatN = rs("category")
PID = rs("ParentID")
rs.close
loop
rs.open "Select category,meta From category Where categoryid="&catid,conn,1,1
strcat = rs("category")
strmeta = rs("meta")
strintro = rs("intro")
strpredate=rs("predate")
strproductdate=rs("productdate")
strother=rs("other")
strgrade=rs("grade")
strpretype=rs("pretype")
strtype=rs("type")
rs.close
set rs = Nothing
%>
<title><%=catstr %><%=webname%>--</title>
<meta name="description" content="虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 互联在线,全新体验:网站建设,国际域名,虚拟主机,企业邮箱,短信网址,国外空间,网站推广,电子商务,www.szze.com等....">
<meta name="keywords" content="互联在线,全新体验:虚拟主机 域名注册 主机托管 主机租用 网站建设 网站推广 企业邮局 实时开通 网站建设,国际域名,虚拟主机,企业邮箱,短信网址,电子商务,国外空间,网站推广。">
<META content=<%=strmeta %>,name=keywords>
<META content=<%=strintro %>,name=description>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="img/koogou.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR></HEAD>
<BODY style=scrollbar-arrow-color:#227776;scrollbar-base-color:#C6DCDE text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 background="image/bg.gif" marginwidth="0" marginheight="0" >
<!--#include file="include/header.asp"-->
<table id="__01" width="1003" height="446" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> <img src="image/images/about_01.gif" width="29" height="338" alt=""></td>
<td rowspan="3" width="212" height="446" valign="top">
<table id="__01" width="212" height="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <img src="image/images/left_01.gif" width="212" height="74" alt=""></td>
</tr>
<tr>
<td background="image/images/left_02.gif" width="212" height="127">
<!-- #include file="login.asp"-->
</td>
</tr>
<tr>
<td width="212" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<% if left1<>"" then %>
<a href=<%=left1url%> target="_blank"><img src=<%=left1%> border="0"></a>
<% end if %>
<!--左侧-->
<br>
<% if left2<>"" then %>
<a href=<%=left2url%> target="_blank"><img src=<%=left2%> border="0"></a>
<% end if %>
<!--左侧-->
</td>
</tr>
</table>
<table height=43 cellspacing=0 cellpadding=0
width="100%" align=center
background=img/contact.gif
border=0>
<tbody>
<tr>
<td valign=top>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="100%"
border=0 height="35">
<tbody>
<tr>
<td
style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma"
valign=top><img
src="img/left_customer_01.gif"
align=absMiddle width="21" height="14"><b><%= tel %></b></td>
</tr>
<tr>
<td
style="PADDING-LEFT: 18px; FONT-SIZE: 8pt; FONT-FAMILY: tahoma"
valign=top height=10><img
src="img/left_customer_02.gif"
align=absMiddle width="21" height="14"><b><font color=#81B902><%=webemail%></font></b></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody></tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
</table>
</td>
<td rowspan="3" width="747" valign="top">
<table width="747" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!-- #include file="ad.asp"-->
</td>
</tr>
<tr>
<td height="57" background="image/CATAGORY.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="44%"> </td>
<td width="56%"><a href="index.asp"><b> <font
face=Arial><font color="#3399CC"><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b>-><a href="textlink.asp?catid=<% = catid %>"><b><font color="FF6600">文字显示商品</font></b></a></font></font> </b></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">
<!--#include file="include/catnews.asp"-->
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width="747" border=0 height="590">
<tbody>
<tr>
<td class=ml width="11"></td>
<td class=ml width="1" background="image/line.gif"></td>
<td class=ml width="10"></td>
<td align=left width="716" valign="top">
<TABLE width="716" align=center>
<TBODY>
<TR>
<TD class=mm>
<TABLE WIDTH="710" BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0" class=table-zuoyou>
<tr>
<td width="580" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="710">
<tr>
<td width="380" valign="top" class=table-youxia align="left">
</td>
<td width="200" valign="top" class=table-xia align="center">
</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Const MaxPerPage=30
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select prename,company,mark,other,grade,pretype,type,predate,productdate,intro,name,id,introduce,price1,price2,discount,pic,stock from product where categoryid in ("& CatList&") and stock >= 0 order by adddate desc",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'> 对不起,此分类暂时还没有商品!</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="716" border="0" align="center" cellpadding="0" cellspacing="0" height="195">
<%
do while not rs.eof%>
<tr valign="top">
<td width="20%" align="center" class=table-xia>
<TABLE WIDTH="140" HEIGHT="140" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD height="140" width="140" colspan="2" align="center">
<a href=product.asp?id=<% = rs("id") %> target="_blank">
<% if trim(rs("pic"))<>"" then %>
</a>
<table class="kuang" border="0" cellspacing="1" cellpadding="1">
<tr>
<td>
<table border="0" cellspacing="5" cellpadding="5">
<tr>
<td><a href=product.asp?id=<% = rs("id") %> target="_blank"><img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>"></a>
<% end if %>
</TD>
</TR>
</TABLE>
</td>
<td width="80%" class=table-xia>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="6%"> </td>
<td width="94%" valign="top">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" height="222">
<tr>
<td colspan="3"> <a href=product.asp?id=<%=rs("id")%>><font color="#227776"><b><%=trim(rs("name"))%></b></font></a>
<hr size="1" class="h2">
</td>
</tr>
<tr>
<td colspan="3"> <%=trim(rs("company"))%><a href=timesmark.asp?MarkName=<% = rs("mark") %>><font color="#FF6600">
<% = rs("mark") %>
</font></a></td>
</tr>
<tr>
<td colspan="3"><%=trim(rs("intro"))%><%=trim(rs("introduce"))%></td>
</tr>
<tr>
<td>
<% = rs("predate") %>
<%=trim(rs("productdate"))%></td>
<td>
<% = rs("other") %>
<%=trim(rs("grade"))%></td>
<td>
<% = rs("pretype") %>
<%=trim(rs("type"))%></td>
</tr>
<tr>
<td width="37%"> </td>
<td width="32%">会 员 价:<FONT COLOR="#FF6600">¥</FONT><font color=red><%=rs("price2")%>元</font></td>
<td width="31%"> </td>
</tr>
<% if rs("stock") > 0 then %>
<TR align="center">
<TD colspan="3">
<table width="55%" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><a href="check.asp?ProdId=<% = rs("id") %>" target="_blank"><img src=images/skin/default/addto_big.gif align=absmiddle border=0></a></td>
<td> </td>
</tr>
</table>
</TD>
</TR>
<% else %>
<tr>
<td colspan="3" align="center"><font color="#FF6600">暂时缺货</font></td>
</tr>
<% end if %>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" valign="middle" align="center" class=table-xia>
<hr size="1" dashed color="#DAE9E7" width="100%" class="h1">
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<% = filename %>?catid=<% = catid %>>
<%
If CurrentPage<2 Then %><div align="center">
首页 上页
<% Else %><div align="center">
<a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a>
<%
End If
If n-currentpage<1 Then %>
下页 尾页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a>
<a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a>
<% End If %>
第 <b>
<% = CurrentPage %>
</b>页 共 <b>
<% = n %>
</b>页 共 <b>
<% = totalnumber %>
</b>件商品 每页 <b>
<% = maxperpage %>
</b> 件商品 转到第:
<input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>
页
<input type='submit' class='contents' value='跳转' name='cndok'>
</form>
<%
End Function
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
<td class=mr width="10"></td>
</tr>
</tbody>
</table>
</td>
<td rowspan="3" width="15"> </td>
</tr>
<tr>
<td width="29" height="48"> </td>
</tr>
<tr>
<td height="29">
<p> </p>
<p> </p>
</td>
</tr>
</table>
<!--#include file="include/footer.asp"-->
</BODY></HTML>