search.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 416 行 · 第 1/2 页

<%@ codepage ="936" %>
<!--#include file="head.asp"--><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/check_input.asp"-->
	<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=7
const MaxInfo=12
dim totalPut 
dim CurrentPage
dim TotalPages
dim rs1
dim sql1
dim i,j
dim keyword
keyword=request("txtitle")
abc=request("type")
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
if not isEmpty(request("sortid")) then
	sortid=request("sortid")
	sortid=CheckInput(sortid,"s","0")
else
	sortid=1
end if
if not isEmpty(request("typeid")) then
	typeid=request("typeid")
	typeid=CheckInput(typeid,"s","0")
else
	typeid=""
end if
if not isEmpty(request("cityid")) then
	cityid=request("cityid")
else
	cityid=""
end if
dim sql,rs
%>
<%
if flag_syjh=1 then  '判断是否需要审核才显示 
	  if datetime="" then
	    if typeid<>"" then
	      sql="select * from info where showname like '%"&request("txtitle")&"%' and flag=1 and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" and typeid="&request("typeid")&" order by qorder asc,dateandtime desc"
	    else
	      sql="select * from info where showname like '%"&request("txtitle")&"%' and flag=1 and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" order by qorder asc,dateandtime desc"
	    end if
	  else
	    if typeid<>"" then
	      sql="select * from info where showname like '%"&request("txtitle")&"%' and flag=1 and type like '%"&request("type")&"%' and dateandtime>=date()-"&cint(request("datetime"))&" and sortid="+cstr(sortid)+" and typeid="+cstr(typeid)+" order by qorder asc,dateandtime desc" 
	    else
	      sql="select * from info where showname like '%"&request("txtitle")&"%' and flag=1 and type like '%"&request("type")&"%' and dateandtime>=date()-"&cint(request("datetime"))&" and sortid="+cstr(sortid)+" order by qorder asc,dateandtime desc" 
	    end if
	    end if
else
	  if datetime="" then
	    if typeid<>"" then
	      sql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" and typeid="&request("typeid")&" order by qorder asc,dateandtime desc"
	    else
	      sql="select * from info where showname like '%"&request("txtitle")&"%' and type like '%"&request("type")&"%' and sortid="+cstr(sortid)+" order by qorder asc,dateandtime desc"
	    end if
	  else
	    if typeid<>"" then
	      sql="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 qorder asc,dateandtime desc" 
	    else
	      sql="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 qorder asc,dateandtime desc" 
	    end if
	  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,"search.asp"
		else 
		if (currentPage-1)*MaxPerPage<totalPut then 
		rs.move (currentPage-1)*MaxPerPage 
		dim bookmark 
		bookmark=rs.bookmark 
		showContent
		showpage totalput,MaxPerPage,"search.asp"
		else 
		currentPage=1 
		showContent
		showpage totalput,MaxPerPage,"search.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>
</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="84" style="border-collapse: collapse" bordercolor="#111111" cellspacing="1">
<TBODY>
<TR>
<TD align=middle colSpan=2 height="27">
<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 colSpan=2 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,sortsql
  set rssort=server.createobject("adodb.recordset") 
	sortsql="select * from Class_2 where sortid="+cstr(sortid)+""
	rssort.open sortsql,conn,1,1 
	do while not rssort.eof
	  Set rscount= Server.CreateObject("ADODB.Recordset") 
          sqlcount="select typeid from info Where typeid="&rssort("typeid")
          rscount.open sqlcount,conn,1,1
          InputCount=rscount.RecordCount 
          rscount.close%>
	  
	<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="22">
		  <TBODY>
			<TR>
			<TD>　</TD>
			<TD>
			<A href="search.asp?sortid=<%=sortid%>&typeid=<%=rssort("typeid")%>" style="text-decoration: none"><%=rssort("Typename")%></a>
			<font color="#808080">(<%=InputCount%>)</font>
			</TD>
			</TR>
		  </TBODY>
		</TABLE>
</TD></TR>