📄 default.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ codepage ="936" %>
<!--#include file="head.asp"-->
<!--#include file="sortcount.asp"-->
<!--#include file="newcount.asp"-->
<% 
const Maxinfo=5
const Max1=20
MaxPerPage=20
dim i,x,y
dim sql,rs,rs1,sql1,rs2,sql2,rssort,sortsql,rrstype,typesql
sql1="select * from qyml where tjbz like '%03%'  and gs='公司'  order by ID desc"
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,1 
sql="select * from news where bz=6 order by NewsID desc"
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%>
<HTML><HEAD><TITLE><%=WebName%>·企业名录</TITLE>
<SCRIPT>
function view2(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); 
}
</SCRIPT>
<SCRIPT>
function view1(url){ 
var url; window.open(url,'_blank','status=no,scrollbars=yes,top=20,left=110,width=600,height=460'); 
}
</SCRIPT>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK 
href="../spzs/images/main.css" rel=stylesheet type=text/css>
<META content="Microsoft FrontPage 6.0" name=GENERATOR>
<style>
<!--
TD {
	FONT-SIZE: 12px; COLOR: #000; FONT-FAMILY: 宋体
}
.M {
	FONT: bold 14px 宋体
}
.M {
	FONT-WEIGHT: bold; FONT-SIZE: 14px; LINE-HEIGHT: normal; FONT-STYLE: normal; FONT-VARIANT: normal
}
.LL {
	LINE-HEIGHT: 150%
}
.C {
	FONT-SIZE: 14px
}
.searchbar {background:#E7E7E7;BORDER-top: #F1F1F1 4px solid;padding-left:10px;}
-->
</style>
</HEAD>
<BODY leftMargin=0 text=#000000 topMargin=0 marginwidth="0" marginheight="0">
<SCRIPT language=javascript>
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=150,width=520,height=480,scrollbars=yes')
}
</SCRIPT>
<CENTER>
<table cellSpacing="0" cellPadding="0" width="760" border="0">
<FORM action=search.asp method=POST name=searchtitle>
  <tr>
    <td class="searchbar" height="40">
    <img src="images/img_search.gif" align="middle">
    <input size="25" name="txtitle" style="font-size: 12px">
	<select size="1" name="stype">
	<option value="1">按企业名称</option>
	<option value="2">按企业简介</option>
	</select><SELECT name=sf> 
<OPTION selected value="0">==所有区域==</OPTION> 
<OPTION value=安徽>安徽</OPTION> 
<OPTION value=北京>北京</OPTION> 
<OPTION value=重庆>重庆</OPTION>
<OPTION value=福建>福建</OPTION> 
<OPTION value=甘肃>甘肃</OPTION> 
<OPTION value=广东>广东</OPTION>
<OPTION value=广西>广西</OPTION> 
<OPTION value=贵州>贵州</OPTION> 
<OPTION value=海南>海南</OPTION>
<OPTION value=河北>河北</OPTION> 
<OPTION value=黑龙江>黑龙江</OPTION> 
<OPTION value=河南>河南</OPTION>
<OPTION value=湖北>湖北</OPTION> 
<OPTION value=湖南>湖南</OPTION> 
<OPTION value=内蒙古>内蒙古</OPTION>
<OPTION value=江苏>江苏</OPTION> 
<OPTION value=江西>江西</OPTION> 
<OPTION value=吉林>吉林</OPTION>
<OPTION value=辽宁>辽宁</OPTION> 
<OPTION value=宁夏>宁夏</OPTION> 
<OPTION value=青海>青海</OPTION>
<OPTION value=山西>山西</OPTION> 
<OPTION value=陕西>陕西</OPTION> 
<OPTION value=山东>山东</OPTION>
<OPTION value=上海>上海</OPTION> 
<OPTION value=四川>四川</OPTION> 
<OPTION value=天津>天津</OPTION>
<OPTION value=西藏>西藏</OPTION> 
<OPTION value=新疆>新疆</OPTION> 
<OPTION value=云南>云南</OPTION> 
<OPTION value=香港>香港</OPTION> 
<OPTION value=澳门>澳门</OPTION>
<OPTION value=台湾>台湾</OPTION>
<OPTION value=其它>其它</OPTION> 
</SELECT>
    <INPUT align=bottom border=0  src="images/creditservice_search.gif" type=image>
    <FONT onclick=on_submit() style="CURSOR: hand" title=请点击查询></td>
    <td class="searchbar">
    <img src="images/icon_green_help.gif" align="middle" border="0">
    <a href="../help/qyml_help.asp" target="_blank" style="color: #3D362B">
    如何找</a>
    <img src="images/icon_green_help.gif" align="middle" border="0">
    <a href="../help/qyml_help.asp" target="_blank" style="color: #3D362B">
    如何采购</a>
    <img src="images/icon_green_help.gif" align="middle" border="0">
    <a href="../help/qyml_help.asp" target="_blank" style="color: #3D362B">
    如何销售</a>
    </td>
  </tr>
  <tr>
    <td height=5>	
    </td>
  </tr>
</FORM>
</table>
<TABLE border=0 borderColor=#111111 cellPadding=0 cellSpacing=0 style="BORDER-COLLAPSE: collapse" width=760 bgcolor="#F5F5F5">
<TBODY>
<TR>
<TD bgColor=#FFFFFF vAlign=top width=300>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD>
          <a href="default_1.asp">
          <IMG src="images/company_hangye.gif" 
            useMap=#Map border=0></a></TD></TR>
        <TR>
          <TD style="BORDER-RIGHT: #ffa902 1px solid; BORDER-LEFT: #ffa902 1px solid; BORDER-BOTTOM: #ffa902 1px solid" align=middle><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
              <TBODY>
              <TR>
                <TD align=right>
                <TABLE border="0" width="100%" height="20" style="border-collapse: collapse" cellspacing="1" cellpadding="2">
                <%Set rssort= Server.CreateObject("ADODB.Recordset") 
 		sortsql="select * from qy_Class_1" 
		rssort.open sortsql,conn,1,1
		if rssort.eof then 
		response.write "还没有大分类！"
		end if
		do while not rssort.eof%> 
		<TR> 
		<td width="33%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
                <A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
                <font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
                <%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
                </td>
                <%rssort.movenext%>
                <td width="33%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
                <A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
                <font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
                <%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
                </td>
                <%rssort.movenext%>
                <td width="33%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">
                <A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a>
                <font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font>
                <%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>
                </td>
                <%rssort.movenext%>
                </tr>
		
		<%
		loop 
		rssort.close
		rstype.close
		set rssort=nothing
		set rstype=nothing
		%>
		</TABLE>
                </TD>
                </TR>
              </TBODY>
             </TABLE><BR>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD class=text13 align=middle width="30%" bgColor=#e2f1ff 
                height=27>　</TD>
                <TD class=S align=middle width="70%" bgColor=#e2f1ff 
                  height=27><IMG hspace=5 src="images/arrow2.gif"><b><font color="#ff6600"><a href="search.asp?qylb=生产型&txtitle=">生产型</a>
                <a href="search.asp?qylb=服务型&txtitle=">服务型</a>
                <a href="search.asp?qylb=贸易型&txtitle=">贸易型</a>
                <a href="search.asp?qylb=政府或其他机构&sortid=1&txtitle=">政府或其他机构</a></font></b></TD></TR></TBODY></TABLE>
                  </TD></TR></TBODY></TABLE>
      <TABLE 
      style="BORDER-RIGHT: #ffa902 1px solid; BORDER-TOP: #ffa902 1px solid; BORDER-LEFT: #ffa902 1px solid; BORDER-BOTTOM: #ffa902 1px solid" 
      cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR>
          <TD width=398>
          <IMG src="images/company_miji_new.gif" border=0>
          <TABLE border=0 cellPadding=0 cellSpacing=0 width="90%">
<TBODY>
<tr>
<TD height=8 width="32%"></TD>
<%do while not rs.eof%> 
</tr>
<tr>
<TD height=20 width="32%">
&nbsp;<img border="0" src="images/qy4.gif">
<a href="javascript:view1('../show_news.asp?newsid=<%=rs("newsid")%>')">
<span style='font-size:9pt;line-height: 15pt'>
<%if len(rs("newstitle"))>12 then
%><%=left(rs("newstitle"),11)%></span>..<span style='font-size:9pt;line-height: 15pt'><% else%><%=rs("newstitle")%><%end if%></span></a></TD>
<% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
</tr>
<tr>
<TD height=8></TD>
</tr>
</TBODY></TABLE>
          </TD></TR>
</TABLE>
</td>

<TD vAlign=top bgcolor="#FFFFFF" width="450" align=right>
      <TABLE cellSpacing=0 cellPadding=3 width="333" border=0 style="border-collapse: collapse" bordercolor="#111111">
        <TR>
          <TD 
          style="border:1px solid #cecece; font-size:12px; color:#000; font-family:宋体" 
          align=middle bgColor=#ebe9e9 width="331">
            <TABLE cellSpacing=0 cellPadding=3 width="324" border=0>
              <TBODY>
              <TR>
                <TD class=M width="108">
                <IMG src="images/company_jiantou.gif" align=absMiddle>
                <a href="search.asp?sf=北京">
                <span style="color: #003399" lang="zh-cn">北京</span></a></TD>
                <TD class=M width="108">
                <IMG src="images/company_jiantou.gif" align=absMiddle>
12 下一页
⌨️ 快捷键说明

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