📄 search.asp

📁 北京商务网
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><!--#include file="../sortcount.asp"--><!--#include file="../newcount.asp"--><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_business(link){window.open(link,'','top=50,left=150,width=520,height=450,scrollbars=yes')}</script><SCRIPT language=JavaScript><!--function docheck(){if (searchtitle.Type.value==""){alert("请选择交易方向!");searchtitle.Type.focus();return false;}searchtitle.Type.value=searchtitle.Type.value.toLowerCase();searchtitle.submit();return true;}--></SCRIPT><%const MaxPerPage=7const MaxInfo=12dim totalPut dim CurrentPagedim TotalPagesdim rs1dim sql1dim i,jdim keywordkeyword=request("txtitle")abc=request("type")if not isempty(request("page")) thencurrentPage=cint(request("page"))elsecurrentPage=1end ifif not isEmpty(request("sortid")) thensortid=request("sortid")elsesortid=1end ifif not isEmpty(request("typeid")) thentypeid=request("typeid")elsetypeid=""end ifif not isEmpty(request("cityid")) thencityid=request("cityid")elsecityid=""end ifdim sqldim rsdim rstypedim typesqldim typeid,typenamedim rssortdim sortsqdim sort,sortnamedim gsmcsqldim gsid,gsname set rssort=server.createobject("adodb.recordset") sortsql="select * from Class_1 where sortid="&cstr(sortid) rssort.open sortsql,conn,1,1sortname=rssort("sort")rssort.closeset rstype=server.createobject("adodb.recordset") rstype.open typesql,conn,1,1typename=rstype("type")rstype.closeset rssort=server.createobject("adodb.recordset") sortsql="select * from Class_1 where sortid="&cstr(sortid) rssort.open sortsql,conn,1,1 %><% if datetime="" thenif typeid<>"" thensql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" and typeid="&request("typeid")&" order by dateandtime desc"elsesql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" order by dateandtime desc"end ifelseif typeid<>"" thensql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and dateandtime>=date()-"&cint(request("datetime"))&" and sortid="+cstr(sortid)+" and typeid="+cstr(typeid)+" order by dateandtime desc" elsesql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and dateandtime>=date()-"&cint(request("datetime"))&" and sortid="+cstr(sortid)+" order by dateandtime desc" end ifend 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 showContentshowpage totalput,MaxPerPage,"search.asp"else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContentshowpage totalput,MaxPerPage,"search.asp"else currentPage=1 showContentshowpage totalput,MaxPerPage,"search.asp"end if end if rs.close end ifset rs=nothingsub showContent%> <HTML><HEAD><TITLE><%=WebName%>·贸易机会</TITLE><LINK href="../css/Style.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><TBODY><TR><TD align=middle vAlign=top width=174><IMG height=34 src="images/TradeChance_hyfl.gif" width=174><BR><TABLE background=images/TradeChance_x1.gif border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><tr><TD align=middle vAlign=top><TABLE border=0 cellPadding=2 width="95%" height="76" style="border-collapse: collapse" bordercolor="#111111" cellspacing="1"><TBODY><TR><TD align=middle height="19"><FONT color=#FF6600><B>供求信息分类统计</B></FONT></TD></TR><TR><TD height="17"><IFRAME frameBorder=0 height=46 marginHeight=1 marginWidth=1 scrolling=no src="fl.asp" width=154 BORDERCOLOR="#000000" name="I1"></IFRAME></TD></TR><TR align=middle><TD height="14"><IMG height=10 src="../images/index_10.gif" width=160></TD></TR></TBODY></TABLE></TD></tr></TBODY></TABLE><TABLE background=images/TradeChance_x1.gif border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><tr><TD><IMG src="../images/index_clarity.gif"></TD><TD vAlign=top><TABLE bgColor=#e9e9e9 border=0 cellPadding=0 cellSpacing=1 width=168 height="29"><TBODY><% Set rs1= Server.CreateObject("ADODB.Recordset") sql1="select * from Class_1" rs1.open sql1,conn,1,1 %><%do while not rs1.eof%><TR bgColor=#ffffff><TD onmouseout="this.style.background='ffffff'" onmouseover="this.style.background='#E8FAFF'" height="1"><TABLE border=0 cellPadding=3 cellSpacing=1 style="border-collapse: collapse" bordercolor="#111111" height="24"><TBODY><TR><TD>　</TD><TD><a href="search.asp?sortid=<%=rs1("sortid")%>" style="text-decoration: none"><%=rs1("sort")%></a><font color="#808080"><%response.write"("&count(rs1("sortid"))&")" %></font><%if count1(rs1("sortid"))=0 then%><%else%><img border="0" src="../Pict/new1.gif" width="27" height="10"><%end if%><FONT class=GR> </FONT></TD></TR></TBODY></TABLE></TD></TR><% rs1.movenext loop rs1.close set rs1=nothing %></TBODY></TABLE></TD></tr><TR><TD colSpan=2><IMG height=4 src="images/TradeChance_x2.gif" width=174></TD></TR></TBODY></TABLE></TD><TD align=middle vAlign=top width=576> <INPUT name=BHName type=hidden> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" ><tr><td width="100%"><div align="center"><center><table border="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber4" height="21"><tr><td width="100%" height="19"><FONT color=#993300>当前位置：<a href="../default.asp" style="text-decoration: none">首页</a>&gt;&gt;<a href="default.asp" style="text-decoration: none">贸易机会</a>&gt;&gt;</FONT><font color="#FF6600"><%=sortname%>.<%=typename%></font></td></tr></table></center></div></td></tr><tr><td width="100%" height="12"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3"><FORM action=search.asp method=POST name=searchtitle onsubmit="return docheck()" ><tr><TD vAlign=top width=130><img border="0" src="images/sj11.gif"></TD><TD background=images/sj12.gif><TABLE border=0 cellPadding=0 cellSpacing=0 height=25 width="446"><TBODY><TR><TD width="88"> <input type="hidden" name="sortid" value=<%=sortid%>><input type="hidden" name="typeid" value=<%=typeid%>><INPUT maxLength=100 name=txtitle size=14></TD><TD width="98"> <SELECT Class=f11 Size="1" Name="datetime"><OPTION selected>显示所有时段</OPTION><OPTION VALUE="0">显示今日最新</OPTION><OPTION VALUE="2">显示最近2天</OPTION><OPTION VALUE="7">显示最近7天</OPTION><OPTION VALUE="30">显示最近30天</OPTION><OPTION VALUE="90">显示最近3个月</OPTION><OPTION VALUE="180">显示最近6个月</OPTION><OPTION VALUE="365">显示最近1年</OPTION></select></TD><TD width="75"> <Select Class=f11 size="1" name="Type"> <OPTION>交易方向</OPTION><OPTION VALUE="采购">采购</OPTION><OPTION VALUE="供应">供应</OPTION><OPTION VALUE="代理">代理</OPTION><OPTION VALUE="合作">合作</OPTION></Select> </TD><TD width="122"><INPUT align=bottom border=0 name=I7 src="images/index_search.gif" type=image ></TD></TR></TBODY></TABLE></TD></FORM></tr></table><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5"><tr><td width="100%"><TABLE background=images/tradechance_qgxx_x.gif border=0 cellPadding=0 cellSpacing=0 width=575><TBODY><TR><TD width=120 background="images/sj124.gif" height="25"><p align="center"><span style="font-weight: 700"><font color="#FFFFFF" size="2"><%=sortname%></font></span></TD><TD align=right vAlign=bottom width="14">　</TD><TD align=right width="441"><p align="left"><%if request("txtitle")="" then%><%else%>搜索关键字：<font color="#ff6600"><%=keyword%> </font>(<font color="#FF6600">注</font>：搜索只限在此行业类）<span style="font-size: 10pt"><font color="#ff6600"><%end if%></font></span></TD></TR></TBODY></TABLE></td></tr></table><TABLE background=images/TradeChance_jrgyxx_x2.gif border=0 cellPadding=0 cellSpacing=0 height=36 width=575><TBODY><TR><TD align=middle><TABLE border=0 cellPadding=0 cellSpacing=0 width="98%"><TBODY><TR><TD width="11%"><B><FONT color=#FF6600>[显示方式]：</FONT></B></TD><TD width="54%"><font color="#FF6600"><a href="search.asp?sortid=<%=sortid%>">全部</a> →<a href="search.asp?type=采购&sortid=<%=sortid%>&typeid=<%=typeid%>&txtitle=<%=keyword%>&datetime=<%=datetime%>")>采购</a> →<a href="search.asp?type=供应&sortid=<%=sortid%>&typeid=<%=typeid%>&txtitle=<%=txtitle%>&datetime=<%=datetime%>">供应</a> →<a href="search.asp?type=代理&sortid=<%=sortid%>&typeid=<%=typeid%>&txtitle=<%=txtitle%>&datetime=<%=datetime%>">代理</a> →<a href="search.asp?type=合作&sortid=<%=sortid%>&typeid=<%=typeid%>&txtitle=<%=txtitle%>&datetime=<%=datetime%>">合作</a></font><b></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width=575><!-- 翻页处理 --><!-- 翻页处理结束 --><TBODY><TR><%do while not rs.eof%> <TD align=right><TABLE border=0 cellPadding=0 cellSpacing=1 width="98%" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD width="8%"><font size="2"><%if rs("type")="采购" then%></font><FONT color=#FF0000>[<%=rs("type")%>]</FONT><font face="Arial"><%elseif rs("type")="供应" then%></font><FONT color=#0066ff>[</FONT><font color="#0066FF"><%=rs("type")%></font><FONT color=#0066ff>]</FONT><font face="Arial"><%elseif rs("type")="代理" then%></font><FONT color=#008000>[<%=rs("type")%>]</FONT><font face="Arial"><%elseif rs("type")="合作" then%></font><FONT color=#800080>[<%=rs("type")%>]</FONT><font face="Arial"><%end if%></font></TD><TD height=18><IMG src="images/list3.gif"> <b> <a href='javascript:show_sader(&quot;business_info.asp?info_id=<%=rs("info_id")%>&quot;)'><%=rs("showname")%></a></b></TD><TD width="15%"> <%=rs("dateandtime")%></TD></TR><TR><TD align=middle bgColor=#f5f5f5 height=20 width="8%"><font size="2"><%if rs("type")="采购" then%><img border="0" src="images/a-qg.gif"></font><font face="Arial"><%elseif rs("type")="供应" then%><img border="0" src="images/a-gy.gif"><%elseif rs("type")="代理" then%><img border="0" src="images/a-dl.gif"><%elseif rs("type")="合作" then%><img border="0" src="images/a-hz.gif"><%end if%></font></TD><TD bgColor=#f5f5f5 colSpan=2>·<FONT color=#000080> <%if rs("web")="" or rs("web")="空" then%><a target="_blank" href="../company/index.asp?id=<%=rs("gsid")%>"><%=rs("company")%></a><%else%><A href="<%=rs("web")%>" target="_blank"><%=rs("company")%></A><%end if%></FONT><FONT color=#003399> </FONT><FONT color=#000080>[<%=rs("country")%>.<%=rs("city")%>]&nbsp;</FONT>&nbsp;</TD></TR><TR><TD colSpan=3 height=7 vAlign=center></TD></TR><TR><TD align=middle vAlign=center width="8%">　</TD><TD colSpan=2 vAlign=center><%=mid(rs("content"),1,78)%><FONT color=#003399>..[<a href="javascript:show_sader(&quot;business_info.asp?info_id=<%=rs("info_id")%>&quot;)" style="text-decoration: none">详细信息</a>]</FONT><BR></TD></TR></TBODY></TABLE></TD></TR><TR><TD align=middle height=15><IMG height=3 src="images/tradechance_jrgyxx_x3.gif" width=570></TD></TR><% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end subfunction showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if response.write "<form method=Post action="&filename&"?sortid="&sortid&"&txtitle="&keyword&">" %><%if CurrentPage<2 then response.write "<table border=0 width=98% cellspacing=0 cellpadding=0>" response.write "<tr height=30>"response.write "<td align=center>"response.write "共<font color=ff6600><b>"&n&"</b></font>页&nbsp;第<font color=ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息</TD>"response.write "<td align=right>"response.write "【最前页】【上一页】" else response.write "<table border=0 width=98% cellspacing=0 cellpadding=0>"response.write "<tr height=30>"response.write "<td align=center>"response.write "共<font color=ff6600><b>"&n&"</b></font>页&nbsp;第<font color=ff6600><b>"&CurrentPage&"</b></font>页&nbsp;共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息" response.write "<td align=right>"response.write "【<a href="&filename&"?page=1&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&"&datetime="&datetime&"&type="&abc&">最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&"&datetime="&datetime&"&type="&abc&">上一页</a>】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&"&datetime="&datetime&"&type="&abc&">" response.write "下一页</a>】【<a href="&filename&"?page="&n&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&"&datetime="&datetime&"&type="&abc&">最后页</a>】" end if response.write "</td>"response.write "</tr>"response.write "</form>"end function%><%sub content%><%end sub%></TBODY></TABLE></td></tr></table></TD></TR></TBODY></TABLE><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber2"><tr><td width="100%" background="images/bt3.gif" style="line-height: 150%">　</td></tr></table></CENTER><!--#include file="../inc/end.asp"--></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -