⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dead.asp

📁 青岛分类信息网整合企业名录.供大家分享
💻 ASP
字号:
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<TITLE><%=webname%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
<SCRIPT language=JavaScript>
<!--//
function check()
{   
    if (document.aspshop.name.value.length<1)
	{
        alert("请填写企业帐号!");
        document.aspshop.name.focus();
        return false;
    }
    if (document.aspshop.pass.value.length<1)
	{
        alert("请填写登录密码!");
        document.aspshop.pass.focus();
        return false;
    }
}
//-->
</SCRIPT>

<SCRIPT language=javascript>
<!--
function s4(){
var v=f.k.value
if(f.a0.checked)
window.open("http://www.yok.com/go.php?NO=8&Key="+v,"0");
if(f.a1.checked)
window.open("http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey="+v,"1");
if(f.a2.checked)
window.open("http://www.sogou.com/web?query="+v,"2");
if(f.a3.checked)
window.open("http://www.google.com/search?hl=zh-CN&ie=GB2312&q="+v,"3");
if(f.a4.checked)
window.open("http://www.yisou.com/search?p="+v,"4");
if(f.a5.checked)
window.open("http://search.china.com/search/result.php?confirm=QW&query="+v,"5");
if(f.a6.checked)
window.open("http://cb.kingsoft.com/search?t=word&lang=gb2312&s="+v,"6");
if(f.a7.checked)
window.open("http://www.baidu.com/baidu?tn=265com&word="+v,"7");
if(f.a8.checked)
window.open("http://mp3search.baidu.com/wstsearch?tn=baidump3&ct=134217728&lm=-1&rn=&word="+v,"8");
if(f.a9.checked)
window.open("http://www.baidu.com/m?rn=10&tn=baidump3lyric&ct=150994944&lm=-1&word="+v,"9");
if(f.a10.checked)
window.open("http://images.google.com/images?ie=GB2312&hl=zh-CN&q="+v,"10");
return false;}
//-->
</SCRIPT>

<SCRIPT language=javascript src="images/ad.js"></SCRIPT>

</HEAD>
<BODY leftMargin=0 background=images/bg.gif topMargin=0>
<SCRIPT language=javascript>
function newpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=10,left=60,width=660,height=510");
newwin.focus();
return false;
}
</SCRIPT>


<DIV align=center>
</DIV>
<!--以下是图片广告调用-->

<!--以上是图片广告调用-->
<DIV align=center>
  <table width="780" height="5" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td bgcolor="#6A787F"><TABLE width=755 height=42 border=0 align="center" cellPadding=0 cellSpacing=0 background="images/menu_bg.gif">
        <TBODY>
          <TR>
            <TD width="100%"><table width="100%" height="30"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="36%"><div align="center"> <a href="fabu.asp" target="_blank">无需注册发布分类广告 </a> </div></td>
                <td width="40%"> <div align="center"><strong><a href="addqy.asp" target="_blank">免费加入企业名录</a></strong> </div></td>
                <td width="12%"> <div align="right"><a href="addvip.asp" target="_blank">申请vip </a>┋  </div></td>
                <td width="12%"><a href="vip/" target="_blank">vip登陆 </a></td>
              </tr>
            </table></TD>
          </TR>
        </TBODY>
      </TABLE></td>
    </tr>
    <tr>
      <td height="5"></td>
    </tr>
  </table>
</DIV>

<TABLE width=780 height=205 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=251 height=166>
      
      <TABLE 
      style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid" 
      cellSpacing=0 cellPadding=0 width=250 bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD vAlign=top width="100%">
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="100%" background=images/table_top.gif 
                  height=28><P style="MARGIN-TOP: 5px">&nbsp;&nbsp;<B><FONT 
                  style="FONT-SIZE: 14px; LETTER-SPACING: 1pt" 
                  color=#006699>最新加入的企业(TOP10)</FONT></B></P></TD></TR>
              <TR>
                <TD vAlign=top width="100%">
                  
                  <TABLE cellSpacing=0 cellPadding=0 width="93%">
                    <TBODY>
<%                             
sql="select top 10 * from qydata where mark='1' order by id desc"                             
set rs=server.createobject("adodb.recordset")                             
rs.open sql,connstr,1,1                            
if rs.eof then                            
response.write "<font color='red'>暂无企业信息</font>"                           
else   
do while not rs.eof %>
 <TR>
    <TD width="100%" background=images/readline.gif height=25>
     <P><IMG src="images/dot1.gif" border=0>&nbsp;
	 <A style="TEXT-DECORATION: none" href="jieshao.asp?id=<%=rs("id")%>" target=_blank><%=rs("name")%></A></P></TD></TR>
<%  rs.movenext 
    loop                           
    end if            
    rs.close           
    set rs=nothing                                                                                               
    %>
                    <TR>
                      <TD width="100%" 
                  height=10></TD></TR></TBODY></TABLE></DIV></TD>
        </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></TD>
    <TD vAlign=top width=252 height=166>
      
      <TABLE width=250 border=0 cellPadding=0 
      cellSpacing=0 bgColor=#ffffff 
      style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid">
        <TBODY>
        <TR>
          <TD vAlign=top width="100%">
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="100%" background=images/table_top.gif 
                  height=28><P style="MARGIN-TOP: 5px">&nbsp;&nbsp;<B><FONT 
                  style="FONT-SIZE: 14px; LETTER-SPACING: 1pt" 
                  color=#006699>最新推荐的企业(TOP10)</FONT></B></P></TD></TR>
              <TR>
                <TD vAlign=top width="100%">
                  
                  <TABLE cellSpacing=0 cellPadding=0 width="93%">
                    <TBODY>
<%                                   
sql="select top 10 * from qydata where mark='1' and tuijian='yes' order by id desc" 
set rs=server.createobject("adodb.recordset")                                   
rs.open sql,connstr,1,1                                  
if rs.eof then                                  
response.write "暂无推荐企业"                                 
else      
do while not rs.eof %>
 <TR>
    <TD width="100%" background=images/readline.gif height=25>
     <P><IMG src="images/star.gif" border=0>&nbsp; 
<A style="TEXT-DECORATION: none" href="jieshao.asp?id=<%=rs("id")%>" target=_blank><%=rs("name")%></A></P></TD></TR>
    <%                      
    rs.movenext       
    loop                               
    end if                  
    rs.close                 
    set rs=nothing  
    %> 

             

                    <TR>
                      <TD width="100%" 
                  height=10></TD></TR></TBODY></TABLE></DIV></TD>
        </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV></TD>
    <TD width=252 height=166 align="right" vAlign=top>
      
      <TABLE 
      style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid" 
      cellSpacing=0 cellPadding=0 width=250 bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD vAlign=top width="100%">
            <TABLE width="250" border=0 cellPadding=0 cellSpacing=0>
              <TBODY>
              <TR>
                <TD width="100%" background=images/table_top.gif 
                  height=28><P style="MARGIN-TOP: 5px">&nbsp;&nbsp;<B><FONT 
                  style="FONT-SIZE: 14px; LETTER-SPACING: 1pt" 
                  color=#006699>最具人气的企业(TOP10)</FONT></B></P></TD></TR>
              <TR>
                <TD vAlign=top width="100%">
                  
                  <TABLE cellSpacing=0 cellPadding=0 width="93%">
                    <TBODY>
<%                             
sql="select top 10 * from qydata where mark='1' order by hits desc,id desc"                             
set rs=server.createobject("adodb.recordset")                             
rs.open sql,connstr,1,1                            
if rs.eof then                            
response.write "<font color='red'>暂无企业信息</font>"                           
else
do while not rs.eof%>
 <TR>
  <TD width="100%" background=images/readline.gif height=25>
     <P><IMG src="images/dot.gif" border=0>&nbsp;
	 <A style="TEXT-DECORATION: none" href="jieshao.asp?id=<%=rs("id")%>" target=_blank><%=rs("name")%></A></P></TD></TR>


<%  rs.movenext 
    loop                           
    end if            
    rs.close           
    set rs=nothing                                                                                               
    %>

             
                    <TR>
                      <TD width="100%" 
                  height=10></TD></TR></TBODY></TABLE></DIV></TD>
      </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      <div align="right"></div></TD>
  </TR>
</TBODY></TABLE>
<TABLE width=780 height="40" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=755 colSpan=3 height=40>
      <FORM name=f onsubmit=return(s4())>
      <TABLE height=27 cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffd700 
      background=images/search_bg.gif border=0>
        <TBODY>
        <TR>
          <TD align=right><INPUT onblur="if (value ==''){value='请输入关键字'}" 
            onmouseover=this.focus() onfocus=this.select() 
            onclick="if(this.value=='请输入关键字')this.value=''" size=15 value=52qingdao.com
            name=k> 
          <INPUT style="FONT-SIZE: 12px; BACKGROUND-COLOR: #ffffff" type=submit value=搜索> 
            <INPUT type=checkbox name=a0><A href="http://www.yok.com/" 
            target=_blank>YOK</A> <INPUT type=checkbox name=a1>新浪 <INPUT 
            type=checkbox name=a2>搜狗 <INPUT type=checkbox name=a3>Google <INPUT 
            type=checkbox name=a4>一搜 <INPUT type=checkbox name=a5>中华网 <INPUT 
            type=checkbox name=a6>词霸 <INPUT type=checkbox CHECKED name=a7>百度 
            <INPUT type=checkbox name=a8>mp3 <INPUT type=checkbox name=a9>歌词 
<INPUT type=checkbox 
  name=a10>图片&nbsp;</TD></TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE>

⌨️ 快捷键说明

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