sjsearch.asp
来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 346 行
ASP
346 行
<%@ codepage ="936" %>
<!--#include file="head.asp"-->
<!--#include file="../sortcount.asp"-->
<!--#include file="../newcount.asp"--><%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%
const MaxPerPage=7
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
keyword=request("type")
title=request("txtitle")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql,rs,rssort,sortsql,sort,sortname,datetime
if not isEmpty(request("datetime")) then
datetime=request("datetime")
else
datetime=7788
end if
%>
<%
if flag_syjh=1 then '判断是否需要审核才显示
if keyword="0" then
sql="select type,Info_ID,showname,dateandtime,web,gsid,company,country,city,content from info where showname like '%"&title&"%' and dateandtime>=date()-"&cint(datetime)&" and flag=1 order by info_id desc"
else
sql="select type,Info_ID,showname,dateandtime,web,gsid,company,country,city,content from info where showname like '%"&title&"%' and dateandtime>=date()-"&cint(datetime)&" and type like '%"&keyword&"%' and flag=1 order by info_id desc"
end if
else
if keyword="0" then
sql="select type,Info_ID,showname,dateandtime,web,gsid,company,country,city,content from info where showname like '%"&title&"%' order by info_id desc"
else
sql="select * from info where showname like '%"&title&"%' and type like '%"&keyword&"%' order by info_id desc"
end if
end if
Set 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,"sjsearch.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"sjsearch.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"sjsearch.asp"
end if
end if
rs.close
end if
set rs=nothing
sub 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=760>
<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>
<%
dim rssort
dim sortsql
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from Class_1"
rssort.open sortsql,conn,1,1 %>
<%do while not rssort.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=<%=rssort("sortid")%>" style="text-decoration: none"><%=rssort("sort")%></a><font color="#808080"><%response.write"("&count(rssort("sortid"))&")" %></font><%if count1(rssort("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>
<% rssort.movenext
loop
rssort.close
set rssort=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>>><a href="default.asp" style="text-decoration: none">商业机会</a>>></FONT><%if request("txtitle")="" then%><font color="#FF0000"><%if request("type")="0"then response.write"全部信息" else response.write""&rs("type")&"专区"end if
%></font><%else%>关键字：<font color="#ff6600"><%=title%><%end if%></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=sjsearch.asp method=POST name=searchtitle >
<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 maxLength=100
name=txtitle size=14></TD>
<TD width="98">
<SELECT Class=f11 Size="1" Name="DateTime">
<OPTION VALUE="30" selected>显示最近30天</OPTION>
<OPTION value="7788">显示所有时段</OPTION>
<OPTION VALUE="0">显示今日最新</OPTION>
<OPTION VALUE="2">显示最近2天</OPTION>
<OPTION VALUE="7">显示最近7天</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 value="0">全部信息</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 background=images/TradeChance_jrgyxx_x.gif border=0
cellPadding=0 cellSpacing=0 width=575 style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD width=116 background="images/sj127.gif" height="25">
<p align="center"><span style="letter-spacing: 2; font-weight: 700">
<font color="#FFFFFF" size="2">
<%if request("type")="0"then response.write"全部信息" else response.write""&rs("type")&"专区"end if
%></font></span></TD>
<TD align=right vAlign=middle width="15">
</TD>
<TD align=right vAlign=middle width="465">
<p align="left"><font size="2"><%if request("txtitle")="" then%><%else%></font><span style="font-size: 10pt">搜索关键字：</span><font color="#ff6600"><span style="font-size: 10pt"><%=title%><%end if%></span></font></TD></TR></TBODY></TABLE>
<TABLE background=images/TradeChance_jrgyxx_x2.gif border=0
cellPadding=0 cellSpacing=0 height=36 width=575>
<TBODY>
<TR>
<TD align=middle bgcolor="#ECF5FF">
<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="sjsearch.asp?type=&keyword=0&datetime=7788&txtitle=<%=title%>">全部</a> →
<a href="sjsearch.asp?type=采购&keyword=0&datetime=7788&txtitle=<%=title%>">采购</a> →
<a href="sjsearch.asp?type=供应&keyword=0&datetime=7788&txtitle=<%=title%>">供应</a> →
<a href="sjsearch.asp?type=代理&keyword=0&datetime=7788&txtitle=<%=title%>">代理</a> →
<a href="sjsearch.asp?type=合作&keyword=0&datetime=7788&txtitle=<%=title%>">合作</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="business_info.asp?info_id=<%=rs("info_id")%>">
<%=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")%>] </FONT> </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,80)%><FONT
color=#003399>..[<a href="business_info.asp?info_id=<%=rs("info_id")%>" 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 sub
%>
</TBODY></TABLE>
</td>
</tr>
</table>
</TD></TR></TBODY></TABLE>
<%function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
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>页 第<font color=ff6600><b>"&CurrentPage&"</b></font>页 共检索到<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>页 第<font color=ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息"
response.write "<td align=right>"
response.write "【<a href="&filename&"?page=1&type="&keyword&"&datetime="&datetime&"&txtitle="&request("txtitle")&">最前页</a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&type="&keyword&"&datetime="&datetime&"&txtitle="&request("txtitle")&">上一页</a>】"
end if
if n-currentpage<1 then
response.write "【下一页】【最后页】"
else
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&type="&keyword&"&datetime="&datetime&"&txtitle="&request("txtitle")&">"
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&type="&keyword&"&datetime="&datetime&"&txtitle="&request("txtitle")&">最后页</a>】"
end if
response.write "</td>"
response.write "</tr>"
response.write "</form>"
end function
%><%sub content%><%end sub%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" id="AutoNumber2" style="border-collapse: collapse">
<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 + =
减小字号Ctrl + -
显示快捷键?