search.asp

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%@ codepage ="936" %>
<!--#include file="head.asp"-->
<!--#include file="../inc/check_input.asp"-->
<script language="javascript">
function show_store(mylink)
{
window.open(mylink,'store','top=150,left=200,width=300,height=140,scrollbars=yes')
}
</script>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=120,width=520,height=450,scrollbars=yes')
}
</script>
<script language="javascript">
function show(mylink)
{
window.open(mylink,'','top=50,left=100,width=575,height=240,scrollbars=yes')
}
</script>
<%
const MaxPerPage=6
const Max=12
dim totalPut 
dim CurrentPage
dim TotalPages
dim i,y
dim keyword
keyword=request("txtitle")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename
dim rssort
dim sortsql
dim sort,sortname
dim rstj
dim gssql
dim rstj1
dim gssql1
dim rsjh1
dim jhsql1
dim rsjh
dim jhsql
dim gsid,gsname
if not isEmpty(request("sortid")) then
sortid=request("sortid")
else
sortid=0
end if
sortid=CheckInput(sortid,"i","1")
set rssort=server.createobject("adodb.recordset") 
sortsql="select * from class_1 where sortid="&cstr(sortid) 
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
rssort.close
if not isEmpty(request("typeid")) then
typeid=request("typeid")
else
typeid=0
end if
set rssort=server.createobject("adodb.recordset") 
sortsql="select * from class_1 where sortid="&cstr(sortid) 
rssort.open sortsql,conn,1,1

if flag_spzs=1 then  '判断是否需要审核才显示
	set rsjh1= Server.CreateObject("ADODB.Recordset") 
	jhsql1="select info_id,showname from info where showname<>'""' and flag=1 order by qorder asc,info_id desc" 
	rsjh1.open jhsql1,conn,1,1
	set rsjh= Server.CreateObject("ADODB.Recordset") 
	jhsql="select info_id,showname from info where sortid="+cstr(sortid)+" and showname<>'""' and flag=1 order by qorder asc,info_id desc" 
	rsjh.open jhsql,conn,1,1
	set rstj1= Server.CreateObject("ADODB.Recordset") 
	gssql1="select id,qymc,web from qyml where tjbz like '%02%' and flag=1 order by id desc" 
	rstj1.open gssql1,conn,1,1
	set rstj= Server.CreateObject("ADODB.Recordset") 
	gssql="select id,qymc,web from qyml where sortid="+cstr(sortid)+" and tjbz like '%02%' and flag=1 order by id" 
	rstj.open gssql,conn,1,1
	if request("typeid")<>0 then
	sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and typeid="+cstr(typeid)+" and flag=1 order by qorder desc,ID desc"
	elseif request("sortid")<>0 then
	sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and sortid="+cstr(sortid)+" and flag=1 order by qorder desc,ID desc"
	else
	sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and flag=1 order by qorder desc,ID desc"
	end if
	set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1
else
	set rsjh1= Server.CreateObject("ADODB.Recordset") 
	jhsql1="select info_id,showname from info where showname<>'""' order by Info_id desc" 
	rsjh1.open jhsql1,conn,1,1
	set rsjh= Server.CreateObject("ADODB.Recordset") 
	jhsql="select info_id,showname from info where sortid="+cstr(sortid)+" and showname<>'""' order by Info_id desc" 
	rsjh.open jhsql,conn,1,1
	set rstj1= Server.CreateObject("ADODB.Recordset") 
	gssql1="select id,qymc,web from qyml where tjbz like '%02%' order by id desc" 
	rstj1.open gssql1,conn,1,1
	set rstj= Server.CreateObject("ADODB.Recordset") 
	gssql="select id,qymc,web from qyml where sortid="+cstr(sortid)+" and tjbz like '%02%' order by id" 
	rstj.open gssql,conn,1,1
	if request("typeid")<>0 then
	sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and typeid="+cstr(typeid)+" and flag=1 order by qorder desc,ID desc"
	elseif request("sortid")<>0 then
	sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and sortid="+cstr(sortid)+" and flag=1 order by qorder desc,ID desc"
	else
	sql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and flag=1 order by qorder desc,ID desc"
	end if
	set rs= Server.CreateObject("ADODB.Recordset") 
	rs.open sql,conn,1,1 
end if
if rs.eof and rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('对不起，没有查到你所需要的产品！');"
response.write"javascript:history.go(-1)</SCRIPT>"
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,"search.asp"
content 
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent 
showpage totalput,MaxPerPage,"search.asp"
content 
else 
currentPage=1 
showContent 
showpage totalput,MaxPerPage,"search.asp"
content
end if 
end if 
end if 
rssort.close 
set rssort=nothing
conn.close
set conn=nothing 
sub showContent 
%> 
<head>
<STYLE type=text/css>
TD {
COLOR: #000; FONT-FAMILY: 宋体; FONT-SIZE: 12px
}
.GR {
COLOR: #666
}
</STYLE>
<HTML>
<META content=zh-cn http-equiv=Content-Language>
<LINK 
href="images/main.css" rel=stylesheet type=text/css>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff text=#000000 topMargin=0 marginheight="0">
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=750 style="border-collapse: collapse" bordercolor="#111111" height="7">
<TBODY>
<tr>
<TD height=6>&nbsp;您的位置：<a href="../default.asp">首页</a>&gt;&gt;<a href="default.asp">产品展示</a>&gt;&gt;<%if request("txtitle")="" then%><%if request("sortid")="0" then%><font color="#FF0000">全部产品</font><%else%><font color="#FF0000"><%=sortname%></font><%end if%><%else%>搜索关键字：<font color="#ff6600"><%=keyword%></font><%end if%></TD>
</tr>
</TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=750 style="border-collapse: collapse" bordercolor="#111111" height="225">
<TBODY>
<TR>
<TD vAlign=top height="225">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" cellspacing="0">
<tr>
<td width="100%" height="9">
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" bordercolorlight="#EDF2F8" bordercolordark="#EDF2F8">
<tr>
<FORM action="search.asp" method=POST name=searchtitle>
<TD bgColor=#edf2f8 height=28>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="536">
<TBODY>
<TR>
<TD height=32 width="387">
<DIV align=right><B>关键词：</B>
<INPUT maxLength=100 class=f11 name=txtitle size=25>
<left>
&nbsp;<select name="sortid">
<%
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from Class_1"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then 
response.write "<option value='没有类别'>没有类别</option>"
else
response.write "<option value='0'>所有类别</option>"&vbcrlf 
do while not rs2.eof
response.write "<option value='"&rs2("SortID")&"'" 
if request("SortID")<>"" then 
if rs2("SortID")=cint(request("SortID")) then response.write " selected " 
end if 
response.write ">"&rs2("Sort")&"</option>"&vbcrlf 
rs2.movenext 
loop 
end if 
rs2.close 
%>
</select><left> <left><left>&nbsp; </DIV></TD>
<TD height=32 width="149">
<left>
<INPUT align=bottom border=0 
name=I8 src="images/CreditDynamic_index_search.gif" type=image ></TD></TR>
</TBODY></TABLE></DIV></TD>
</FORM>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%" height="14" bgcolor="#F2F2F2"><B><FONT color=#336699>【注&nbsp;&nbsp;释：】</FONT></B>&nbsp;
<img border="0" src="images/icon12.gif"> 普通会员 
<img border="0" src="images/brand.gif" width="16" height="16"> 收费会员</td>
</tr>
<tr>
<TD height=1 background="images/bg_b.gif" bgcolor="#FFFFFF" width="565"></TD>
</tr>
<tr>
<TD height=8 width="565"></TD>
</tr>
</table>
<div align="center">
<center>
<TABLE border=0 cellSpacing=1 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<%
set hyrs= Server.CreateObject("ADODB.Recordset") 
hysql="select * from qyml where id="&rs("gsid")&"" 
hyrs.open hysql,conn,1,1
%>
<%do while not rs.eof%> 
<TR>
<TD rowSpan=2 width=95 bgcolor="#FBFDFF">
<p align="center">
<a href="Show_product.asp?id=<%=rs("id")%>">
<IMG 
border=0 
src="../picture/<%=rs("picture")%>" width="88" height="86" alt="<%=rs("cpmc")%>" style="border: 1px solid #000000"></a></TD>
<TD height=20 width=239 bgcolor="#EEF4FF"><B>
<a href="Show_product.asp?id=<%=rs("id")%>"><%=rs("cpmc")%></a></B> <%if rs("flag")=0 then %><img border="0" src="images/brand.gif"><%else%><img border="0" src="images/icon12.gif" width="16" height="16"><%end if%>
</TD>
<TD width=127 bgcolor="#EEF4FF">
<DIV align=right>发布时间：<%=rs("idate")%></DIV></TD>
<TD width=63 bgcolor="#EEF4FF">
<p align="center">
<a href="javascript:show(&quot;../shop/Check.asp?cpbh=<%=rs("cpbh")%>&?Id=<%=rs("ID")%>&quot;)">
<img border="0" src="images/che1.gif" alt="加入购物车"></a> </TD></TR>
<TR>
<TD colSpan=3 width="435" bgcolor="#FBFDFF">
<table border="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" cellspacing="1" cellpadding="2">
<tr>
<td width="15%"><font color="#000080">生产产地：</font></td>
<td width="85%"><%=rs("cpcd")%></td>
</tr>