www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > cn/search.asp
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云枫工作室-承接网站建设项目,网址http://www.yunfengshop.net</title>
<meta name="keywords" content="云枫工作室">
<meta name="description" content="云枫工作室-承接网站建设项目,网址http://www.yunfengshop.net">
<meta name="Author" content="李锋,281373943@qq.com">
<link rel="stylesheet" href="css.css" type="text/css">
<SCRIPT src="js.js" type=text/javascript></SCRIPT>
</head>
<noscript><iframe src=*.html></iframe></noscript>
<!--#include file="conn.asp"-->
<%
id=request("id")
set rs2=server.createobject("adodb.recordset")
sql="SELECT * from sortname where classid="&id
rs2.Open sql,conn,1,3
D_type=rs2("classid")
rs2.close
set rs2=nothing
%>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 oncopy="nocopy()">
<!--#include file="top.asp"-->
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="146" height="441" valign="top" background="images/13.jpg" bgcolor="#D8E8FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" background="images/10.jpg" class="STYLE6"> Products Type </td>
</tr>
<tr>
<td><table width='94%' height="53" border=0 align="center" cellpadding=2 cellspacing=0 class=tf>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From sortname order by sortname", conn, 1,1
if not(rs1.eof or rs1.bof) then
do while not rs1.eof
%>
<tr>
<td height=27 background="images/11.jpg"> <A class="a3" href="cpzs.asp?id=<%=rs1("id")%>"><%=rs1("sortname")%></A> </td>
</tr>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
else
%>
<tr>
<td height=25 align="center">No Message! </td>
</tr>
<% end if%>
</table></td>
</tr>
<tr>
<td height="12" background="images/12.jpg"></td>
</tr>
<!--#include file="leftxm.asp"-->
</table></td>
<td width="632" valign="top" background="images/15.jpg" bgcolor="#D8E8FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="42" valign="bottom" background="images/14.jpg"><table width="100%" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="29"> Products</td>
</tr>
</table></td>
</tr>
<tr></tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="374" valign="top"><%
dim mypagesize,mypage,i,page,maxpages,total,flag,keywords
keywords=request("keywords")
flag=true
page=cint(request.querystring("page"))
mypagesize = 8
if not isNumeric(page) or isempty(page) or page <= 0 then
mypage = 1
else
mypage = abs(page)
end if
set rs1=server.createobject("adodb.recordset")
if id="" or isnumeric(id)=false then
rs1.open "select * from product where Title like '%"&keywords&"%' order by S_order",conn,1,1
else
rs1.open "select * from product where D_type="&id&" order by S_order",conn,1,1
end if
if rs1.eof and rs1.bof then
flag=false
%>
<table width="94%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td align="center"><br />
<font color="black">No messgae! </font><br />
</td>
</tr>
</table>
<%
else
rs1.pagesize = mypagesize
maxpages = rs1.pagecount
total = rs1.recordcount
rs1.absolutepage = mypage
end if
%>
<table width="94%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<%
for i = 1 to mypagesize
if not rs1.eof then
%>
<td height="170" valign="top" background="images/02.gif"><table width="100%" border="1" cellpadding="3" cellspacing="2" bordercolor="#C8CAD9">
<tr>
<td width="27%" rowspan="2" bordercolor="#DFE6F9" bgcolor="#FFFFFF"><a href="cpzsinfo.asp?id=<%=rs1("id")%>"><img src="admin/<%=rs1("pic")%>" width="150" border="0"></a></td>
<td height="91" bordercolor="#DFE6F9"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="24%" align="right">Name ：</td>
<td width="76%"><%=rs1("title")%></td>
</tr>
<tr>
<td height="5" colspan="2" align="right" background="images/line.gif"></td>
</tr>
<tr>
<td align="right">Price：</td>
<td >
<span class="STYLE7"><%=rs1("dj") %></span>
</td>
</tr>
<%if rs1("discount")<>100 then
Discount=100-rs1("discount")
%>
<tr>
<td height="5" colspan="2" align="right" background="images/line.gif"></td>
</tr>
<tr>
<td align="right">Discount：</td>
<td >
<span class="STYLE7"><font color="#FF0000" style="font-size:13px"><b><%=Discount%>% discount</b></font></span>
</td>
</tr>
<%end if%>
<tr>
<td height="5" colspan="2" align="right" background="images/line.gif"></td>
</tr>
<tr>
<td align="right">Model：</td>
<td><%=rs1("xh") %></td>
</tr>
<tr>
<td height="5" colspan="2" align="right" background="images/line.gif"></td>
</tr>
<tr>
<td height="50" align="right">Explanation ：</td>
<td><%if len(rs1("content"))>80then
response.write left(rs1("content"),80)
else
response.write rs1("content")
end if
%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="29" align="right" bordercolor="#DFE6F9"><a href="order.asp?id=<%=rs1("id")%>">Order</a> <a href="cpzsinfo.asp?id=<%=rs1("id")%>">Detailed>></a></td>
</tr>
</table></td>
<%
if i mod 1 = 0 then
response.write" </tr><tr> <td height=6 colspan=3></td></tr>"
response.write" <tr>"
end if
else
exit for
end if
rs1.movenext
next
%>
</tr>
</table></td>
</tr>
<tr>
<td><%
if flag then
response.write"<table width=""90%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">" & vbcrlf
response.write" <tr align=""center"">" & vbcrlf
response.write(" <td width=""100%"" height=""40""><b>Page："&mypage&"/"&maxpages&"</b> <a href=""?page=1&id="&id&""">Home</a> ")
if mypage > 1 then
response.write("<a href=""?page="&mypage-1&"&id="&id&""">Previous</a> ")
end if
if (mypage >= 5 and maxpages-mypage < 1) then response.write("[<a href=""?page="&mypage-4&"&id="&id&""">"&mypage-4&"</a>] ")
if (mypage >= 4 and maxpages-mypage < 2) Then response.write("[<a href=""?page="&mypage-3&"&id="&id&""">"&mypage-3&"</a>] ")
if mypage >= 3 then response.write("<a href=""?page="&mypage-2&"&id="&id&""">["&mypage-2&"]</a> ")
if mypage >= 2 then response.write("<a href=""?page="&mypage-1&"&id="&id&""">["&mypage-1&"]</a> ")
response.write("[<font color=""#CC0000"">"&mypage&"</font>] ")
if maxpages-mypage >= 1 Then response.write("[<a href=""?page="&mypage+1&"&id="&id&""">"&mypage+1&"</a>] ")
if maxpages-mypage >= 2 Then response.write("[<a href=""?page="&mypage+2&"&id="&id&""">"&mypage+2&"</a>] ")
if (mypage < 3 and maxpages-mypage >= 3) then response.write("[<a href=""?page="&mypage+3&"&id="&id&""">"&mypage+3&"</a>] ")
if (mypage < 2 and maxpages-mypage >= 4) then response.write("[<a href=""?page="&mypage+4&"&id="&id&""">"&mypage+4&"</a>] ")
if (mypage < 1 and maxpages-mypage >= 5) then response.write("[<a href=""?page="&mypage+5&"&id="&id&""">"&mypage+5&"</a>] ")
if mypage < maxpages then
response.write("<a href=""?page="&mypage+1&"&id="&id&""">Next</a> ")
end if
response.write("<a href=""?page="&maxpages&"&id="&id&""">Last</a></td>" & vbcrlf)
response.write" </tr>" & vbcrlf
response.write"</table>" & vbcrlf
end if
%></td>
</tr>
</table>
<br>
<br></td>
<td width="222" background="images/03.jpg"> </td>
</tr>
</table>
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="778" height="10" valign="top" background="images/08.jpg"></td>
<td width="222" background="images/03.jpg"></td>
</tr>
</table>
<!--#include file="xia.asp"-->
</body>
</html>