default.asp

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

ASP
436
字号
<%@ codepage ="936" %><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者:赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q:176189168  										   	    │
'│                                                                 │
'│ Email:service@fyasp.com                                        │
'│                                                                 │
'│ 程序定做,系统开发,网站制作,提供高质量的网络产品、技术和服务!│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有,未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部,将承受严厉的民事和刑事处罚,对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="head.asp"-->
<!--#include file="sortcount.asp"-->
<!--#include file="newcount.asp"-->
<%
const MaxNumber=5
const Max1=6
dim mrs,msql,grs,gsql,drs,sql,cgsql,cgrs,rssort,sortsql
if flag_syjh=1 then  '判断是否需要审核才显示
	Set mrs= Server.CreateObject("ADODB.Recordset") 
	msql="select Info_ID,showname,dateandtime from info where type like '" & "采购" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc" 
	mrs.open msql,conn,1,1
	cgnum=mrs.recordcount
	Set grs= Server.CreateObject("ADODB.Recordset") 
	gsql="select Info_ID,showname,dateandtime from info where type like '" & "供应" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc" 
	grs.open gsql,conn,1,1           
	gynum=grs.recordcount           
	Set drs= Server.CreateObject("ADODB.Recordset")            
	dsql="select Info_ID,showname,dateandtime from info where type like '" & "代理" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc" 
	drs.open dsql,conn,1,1           
	dlnum=drs.recordcount           
	Set hrs= Server.CreateObject("ADODB.Recordset")            
	hsql="select Info_ID,showname,dateandtime from info where type like '" & "合作" & "' and showname like '%"&showname&"%' and flag=1 order by info_id desc" 
	hrs.open hsql,conn,1,1           
	hznum=hrs.recordcount           
else           
	Set mrs= Server.CreateObject("ADODB.Recordset")            
	msql="select Info_ID,showname,dateandtime from info where showname like '%"&showname&"%' and type like '" & "采购" & "' order by info_id desc" 
	mrs.open msql,conn,1,1           
	cgnum=mrs.recordcount           
	Set grs= Server.CreateObject("ADODB.Recordset")           
	gsql="select Info_ID,showname,dateandtime from info where showname like '%"&showname&"%' and type like '" & "供应" & "' order by info_id desc" 
	grs.open gsql,conn,1,1           
	gynum=grs.recordcount           
	Set drs= Server.CreateObject("ADODB.Recordset")           
	dsql="select Info_ID,showname,dateandtime from info where showname like '%"&showname&"%' and type like '" & "代理" & "' order by info_id desc" 
	drs.open dsql,conn,1,1           
	dlnum=drs.recordcount           
	Set hrs= Server.CreateObject("ADODB.Recordset")           
	hsql="select Info_ID,showname,dateandtime from info where showname like '%"&showname&"%' and type like '" & "合作" & "' order by info_id desc" 
	hrs.open hsql,conn,1,1
	hznum=hrs.recordcount
end if
	cgsql="select newsid,NewsTitle from cgal order by NewsID desc"
	Set cgrs= Server.CreateObject("ADODB.Recordset") 
	cgrs.open cgsql,conn,1,1 
%>
<HTML><HEAD><TITLE><%=WebName%>·商业机会</TITLE>
<LINK href="../css/Style.css" rel=stylesheet type=text/css>
<style>
<!--
.downborder {
	BORDER-BOTTOM: #3399FF 3px solid
}
.buttonbar {
	BORDER-TOP: #3399FF 4px solid; PADDING-LEFT: 12px; BACKGROUND: #EBEBEB; HEIGHT: 29px
}
.blackborder {
	BORDER-RIGHT: #b0b0b0 1px solid; BORDER-LEFT: #b0b0b0 1px solid; BORDER-BOTTOM: #b0b0b0 1px solid
}
.M {
	FONT-WEIGHT: bold; FONT-SIZE: 14px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal
}
.S {
	FONT-SIZE: 12px
}
.smallbottompad {
	PADDING-BOTTOM: 10px
}
.largeleftpad {
	PADDING-LEFT: 18px
}
.HEAD {
	FONT-WEIGHT: bold; FONT-SIZE: 14px; FILTER: progid:DXImageTransform.Microsoft.Glow(color=000000,strength=2); WIDTH: 70%; COLOR: #fff; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal
}
.midbar {
	BORDER-BOTTOM: #666666 3px solid
}
.companybar {
	BORDER-RIGHT: 1px solid #999999; BORDER-TOP: 1px solid #999999; FONT-WEIGHT: bold; FONT-SIZE: 14px; BACKGROUND: url('/images/cn/common/others/search_bg.gif'); BORDER-LEFT: 1px solid #999999; LINE-HEIGHT: normal; PADDING-TOP: 4px; BORDER-BOTTOM: 3px solid #666666; FONT-STYLE: normal; HEIGHT: 29px; TEXT-ALIGN: center; FONT-VARIANT: normal
}
.blackbordernobottom {
	BORDER-RIGHT: #b0b0b0 1px solid; BORDER-LEFT: #b0b0b0 1px solid
}
.nobianbuttonborder {
	BORDER-TOP: #ffffff 5px solid; FONT-SIZE: 12px; BACKGROUND: #f1f1f1; BORDER-BOTTOM: #cccccc 2px solid; HEIGHT: 25px; TEXT-ALIGN: center
}
.norightbuttonborder {
	BORDER-TOP: #ffffff 5px solid; FONT-SIZE: 12px; BACKGROUND: #f1f1f1; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 2px solid; HEIGHT: 25px; TEXT-ALIGN: center
}
.buttoncolor {
	BORDER-TOP: #ffa55b 4px solid; FONT-WEIGHT: normal; FONT-SIZE: 12px; BACKGROUND: #ff7300; COLOR: #fff; LINE-HEIGHT: normal; FONT-STYLE: normal; HEIGHT: 25px; TEXT-ALIGN: center; FONT-VARIANT: normal
}
.NOL {
	TEXT-DECORATION: none
}
.white {
	FONT-WEIGHT: normal; FONT-SIZE: 12px; COLOR: #fff; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal
}
.red {
	FONT-WEIGHT: bold; COLOR: #cc3300
}
.smalltoppad {
	PADDING-TOP: 10px
}
-->
</style>
</HEAD>
<BODY bgColor=#ffffff text=#000000 topMargin=0 marginheight="0">
<CENTER>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760">
  <tr>
    <td width="265"><FONT color=#993300>当前位置:<a href="../default.asp" style="text-decoration: none">首页</a> 
&gt;&gt; <a href="default.asp" style="text-decoration: none">商业机会</a></FONT></td>
    <td width="492">
<FORM action=sjsearch.asp method=POST name=Search align=left>
<TABLE border=0 cellPadding=0 cellSpacing=0 height="10">
<TBODY>
<TR>
<TD vAlign=top width=130 height="1">
<img border="0" src="images/sj11.gif"></TD>
<TD background=images/sj12.gif height="1">
<TABLE border=0 cellPadding=0 cellSpacing=0 height=25 
width="359"><TBODY>
<TR>
<TD width="72"><INPUT name=BHName type=hidden> 
<INPUT maxLength=100 
name=txtitle size=14></TD>
<TD width="93"> 
<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="80"> 
<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="57" valign="top">
<INPUT align=bottom border=0 
name=I7 src="images/index_search.gif" type=image ></TD></TR></TBODY>
</TABLE>
</TD></TR>
</TBODY></TABLE>
</FORM>
    </td>
  </tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760 style="border-collapse: collapse" bordercolor="#111111" height="124">
<TBODY>
<TR>
<TD align=middle vAlign=top width=617 height="65">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="758" id="AutoNumber3" height="370">
  <tr>
    <td width="478" vlign=top height="358" valign="top">
      <TABLE class=downborder cellSpacing=0 cellPadding=0 width="470" border=0 style="border-collapse: collapse" bordercolor="#111111" height="32"><TBODY>
        <TR>
          <TD class=buttonbar width=109 height="30">
          <IMG src="images/icon_black_45down.gif" align=absMiddle border=0><SPAN class=head>商业机会</SPAN></TD>
          <TD class=midbar width=7 height="35"> </TD>
          <TD class=companybar onmouseover="this.style.cursor='hand'" 
          onclick="location.href='../qyml/default.asp'" width=121 height="30">公司库</TD>
          <TD class="midbar s" align=center width="251" height="35"><a href=default_1.asp>点此查看全部行业分类 (二级分类)</a></TD>
         </TR>
         </TBODY>
       </TABLE>
      <TABLE class=blackbordernobottom cellSpacing=0 cellPadding=0 width="470" 
      border=0 style="border-collapse: collapse" bordercolor="#111111">
        <TBODY>
        <TR>
          <TD class=nobianbuttonborder width=79>
          <a style="color: #3d362b" href="sjsearch.asp?type=供应&keyword=0&datetime=7788&txtitle=<%=title%>">供应信息</a><font color="#ff6600">(<%=gynum%>)</font></TD>
          <TD class=norightbuttonborder width=79>
          <a style="color: #3d362b" href="sjsearch.asp?type=采购&keyword=0&datetime=7788&txtitle=<%=title%>">求购信息</a><font color="#ff6600">(<%=cgnum%>)</font></TD>
          <TD class=norightbuttonborder width=79>
          <a style="color: #3d362b" href="sjsearch.asp?type=代理&keyword=0&datetime=7788&txtitle=<%=title%>">代理信息</a><font color="#ff6600">(<%=dlnum%>)</font></TD>
          <TD class=norightbuttonborder width=80>
          <a style="color: #3d362b" href="sjsearch.asp?type=合作&keyword=0&datetime=7788&txtitle=<%=title%>">项目合作</a><font color="#ff6600">(<%=hznum%>)</font></TD>
          <TD class=norightbuttonborder width=146>
           </TD>
          </TR></TBODY></TABLE>
      <TABLE class=blackbordernobottom cellSpacing=0 cellPadding=0 width="470" border=0 style="border-collapse: collapse" bordercolor="#111111">
        <TBODY>
        <TR>
          <TD class="smalltoppad red smallbottompad" align=left width="498">

            <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
              <TBODY>
              <TR>

⌨️ 快捷键说明

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