|
|
<!--#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")
rs.close
set rs = Nothing
%>
<html>
<head>
<title>久银车库-产品展示</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#000000" background="images/bg.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select news",conn,1,1
%>
<table width="45%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"><table width="75%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#000000"><table width="100" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><table width="1002" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">
<!--#include file="include/header.asp"-->
<tr>
<td colspan="13" valign="top"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td width="19%" valign="top" background="images/index_10.jpg">
<!--#include file="include/left1.asp"--> </td>
<td valign="top" class="border_no_top">
<table cellspacing=10 cellpadding=0 width="100%" align=center border=0>
<tbody>
<tr>
<td valign=top><table class=border_no_bottom height=30 cellspacing=0 cellpadding=0
width="100%" border=0>
<tbody>
<tr>
<td valign=center><table height=20 cellspacing=0 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td width=25></td>
<td class=table_bgcolor width=6></td>
<td class=dark13px valign=bottom align=left
width=83> 当前位置：</td>
<td class=dark13px valign=bottom align=left
width=666><a href="index.asp"><b><%=webname%></b></a><b><%=lstcat %></b></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td valign=bottom><table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td class=table_bgcolor
height=3></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
<table class=border_no_top cellspacing=4 cellpadding=0 width="100%"
border=0>
<tbody>
<tr>
<td><table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td><TABLE WIDTH="760" BORDER="0" ALIGN="center" bgcolor="#FFFFFF" CELLPADDING="0" CELLSPACING="0">
<tr>
<td width="580" valign="top" align="center"><table border="0" cellpadding="0" cellspacing="0" width="760">
<tr>
<td width="780" valign="top" align="center">
<%
Const MaxPerPage=9
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,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="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><TABLE WIDTH="286" HEIGHT="120" BORDER="0" align="center" CELLPADDING="0" CELLSPACING="0">
<%do while not rs.eof%>
<TR>
<TD height="120" colspan="2" align="center" ><a href=product.asp?id=<% = rs("id") %> target="_blank">
<%
if trim(rs("pic"))<>"" then %>
<img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% end if %>
</a>
<div align="center"><A href=product.asp?id=<%=rs("id")%>><font color="#FF6600"><%=trim(rs("name"))%></font></A></div></TD>
<TD width="12" align="center" > </TD>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext%>
<TD width="97" height="120" align="center" ><a href=product.asp?id=<% = rs("id") %> target="_blank">
<% if trim(rs("pic"))<>"" then %>
<img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% end if %>
</a>
<div align="center"><A href=product.asp?id=<%=rs("id")%>><font color="#FF6600"><%=trim(rs("name"))%></font></A></div></TD>
<TD width="12" height="120" align="center" > </TD>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext%>
<TD height="120" width="72" colspan="2" align="center" ><a href=product.asp?id=<% = rs("id") %> target="_blank">
<% if trim(rs("pic"))<>"" then %>
<img src=<% = trim(rs("pic"))%> border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% else %>
<img src=images/emptybook.jpg border=0 width="<% = webimg9 %>" height="<% = webimg10 %>">
<% end if %>
</a>
<div align="center"><A href=product.asp?id=<%=rs("id")%>><font color="#FF6600"><%=trim(rs("name"))%></font></A></div></TD>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext%>
</TR>
<%
loop
rs.close
set rs=nothing
%>
</TABLE></td>
</tr>
</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 %>
<%
End Function
%>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <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></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
<tr></tr>
</tbody>
</table></td>
</tr>
</tbody>
</table>
</td>
</tr>
</table></td>
<td> <img src="images/spacer.gif" width="1" height="352" alt=""></td>
</tr>
<tr>
<td height="2"> <img src="images/spacer.gif" width="37" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="1" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="154" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="46" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="21" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="199" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="23" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="200" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="13" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="8" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="36" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="194" height="1" alt=""></td>
<td> <img src="images/spacer.gif" width="70" height="1" alt=""></td>
<td></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" background="images/foot.jpg">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#FFFFFF">
<td colspan="2" bgcolor=#ededed><img height=1 src="images/spacer.gif"
width=1></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<!--#include file="include/foot.asp"-->
</table>
<p> </p> </div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
用了上面的这个代码：测试的时候就变成 http://test.jiangxiang.com.cn/cat.asp?catid=313 这里的这样了 救救我怎么办？ |
|
IP卡
狗仔卡
发表于 2010-1-11 03:10:05
收藏
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
发表于 2010-2-15 01:05:06