📄 search.asp
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><!--#include file="sortcount.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=6const Max=12dim totalPut dim CurrentPagedim TotalPagesdim i,ydim keywordkeyword=request("txtitle")if not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifdim sqldim rsdim rstypedim typesqldim typeid,typenamedim rssortdim sortsqldim sort,sortnamedim rstjdim gssqldim rstj1dim gssql1dim rsjh1dim jhsql1dim rsjhdim jhsqldim gsid,gsnameif not isEmpty(request("sortid")) thensortid=request("sortid")elsesortid=0end ifset rssort=server.createobject("adodb.recordset") sortsql="select * from class_1 where sortid="&cstr(sortid) rssort.open sortsql,conn,1,1sortname=rssort("sort")rssort.closeif not isEmpty(request("typeid")) thentypeid=request("typeid")elsetypeid=0end ifset rssort=server.createobject("adodb.recordset") sortsql="select * from class_1 where sortid="&cstr(sortid) rssort.open sortsql,conn,1,1 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,1set 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,1set 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,1set 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,1if request("sortid")<>0 thensql="select * from spzs where cpmc like '%"&request("txtitle")&"%' and sortid="+cstr(sortid)+" order by ID desc"elsesql="select * from spzs where cpmc like '%"&request("txtitle")&"%' order by ID desc"end ifset rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 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"contentend if end if end if rssort.close set rssort=nothingconn.closeset 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> 您的位置：<a href="../default.asp">首页</a>>><a href="default.asp">产品展示</a>>><%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> <select name="sortid"><%dim rs2,sql2set rs2=server.createobject("adodb.recordset")sql2="select * from Class_1"rs2.open sql2,conn,1,1if rs2.eof and rs2.bof then response.write "<option value='没有类别'>没有类别</option>"elseresponse.write "<option value='0'>所有类别</option>"&vbcrlf do while not rs2.eofresponse.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> </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>【注 释：】</FONT></B> <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 hyrs("flag")="0" then %><img border="0" src="images/icon12.gif"><%else%><img border="0" src="images/brand.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">⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -