📄 1default.asp

📁 青岛分类信息网整合企业名录.供大家分享
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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>


<TABLE width=755 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=255 height=82><img src="images/logo.gif" width="159" height="78"></TD>
    <TD width=496 height=82 align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="468" height="60">
      <param name="movie" value="images/gongyi.swf">
      <param name="quality" value="high">
      <embed src="images/gongyi.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="468" height="60"></embed>
    </object>
      </TD>
  </TR>
  <TR>
    <TD colSpan=2>
      <TABLE cellSpacing=0 cellPadding=0 width=755 border=0>
        <TBODY>
        <TR>
          <TD height=44  background=images/menu_bg.gif><table width="100%" height="40"  border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="3%">&nbsp;</td>
              <td width="22%"><SCRIPT language=JavaScript class=black 
            src="js/date.js"></SCRIPT></td>
              <td width="71%" align="right"><FONT style="FONT-FAMILY: Verdana"><A 
            style="COLOR: #0000FF; TEXT-DECORATION: none; font-weight: bold;" 
            href="default.asp">本站首页</A>&nbsp;┋&nbsp; <A 
            style="TEXT-DECORATION: none; color: #004848; font-weight: bold;" 
            href="ad.asp">分类广告</A>&nbsp;┋&nbsp; <A 
            style="COLOR: #004848; TEXT-DECORATION: none; font-weight: bold;" 
            href="qiye.asp">企业名录</A>&nbsp;┋ <A 
            style="COLOR: #004848; TEXT-DECORATION: none; font-weight: bold;" 
            href="#" target=_blank>网站建设</A>&nbsp;┋<A 
            style="COLOR: #004848; TEXT-DECORATION: none; font-weight: bold;" 
            href="gbook.asp" 
            target=_blank>留言反馈</A>&nbsp;┋ <A 
            style="TEXT-DECORATION: none; font-weight: bold; color: #9900FF;" 
            href="addvip.asp" 
            target=_blank>申请vip</A>┋<A 
            style="COLOR: #FF3300; TEXT-DECORATION: none; font-weight: bold;" 
            href="vip/" 
            target=_blank>vip登陆</A></font></td>
              <td width="4%" align="right">&nbsp;</td>
            </tr>
          </table></TD>
          </TR></TBODY></TABLE></TD></TR>
  <TR>
<TD style="BACKGROUND-COLOR: #ff9933" width=753 colSpan=2 
  height=2></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE height=70 cellSpacing=0 cellPadding=0 width=755 border=0>
  <TBODY>
  <TR>
    <TD width=755 background=images/banner.gif height=68>
      <P align=right>
      <OBJECT 
      codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
      height=66 width=188 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME="_cx" VALUE="12383"><PARAM NAME="_cy" VALUE="2646"><PARAM NAME="FlashVars" VALUE=""><PARAM NAME="Movie" VALUE="images/xiaoguo.swf"><PARAM NAME="Src" VALUE="images/xiaoguo.swf"><PARAM NAME="WMode" VALUE="Transparent"><PARAM NAME="Play" VALUE="-1"><PARAM NAME="Loop" VALUE="-1"><PARAM NAME="Quality" VALUE="High"><PARAM NAME="SAlign" VALUE=""><PARAM NAME="Menu" VALUE="-1"><PARAM NAME="Base" VALUE=""><PARAM NAME="AllowScriptAccess" VALUE="always"><PARAM NAME="Scale" VALUE="ShowAll"><PARAM NAME="DeviceFont" VALUE="0"><PARAM NAME="EmbedMovie" VALUE="0"><PARAM NAME="BGColor" VALUE=""><PARAM NAME="SWRemote" VALUE=""><PARAM NAME="MovieData" VALUE=""><PARAM NAME="SeamlessTabbing" VALUE="1"></OBJECT></P></TD></TR>
  <CENTER>
  <TR>
    <TD style="BACKGROUND-COLOR: #ff9933" 
height=2></TD></TR></TBODY></TABLE></DIV>
<!--以下是图片广告调用-->

<TABLE width=755 height=170 border=0 align="center" cellPadding=0 cellSpacing=0 
background=images/5x170.jpg>
  <TBODY>
  <TR>
    <TD width=1>　</TD>

<%
sql="select * from data where mark='yes' and stop >= date() and shouye=1 and pic <>'' order by top desc,money desc,time desc,adid desc" 
set rs=server.createobject("adodb.recordset")               
rs.open sql,connstr,1,1  
if rs.eof then                          
response.write "<td><p align='center'><font color='#FF0000'>暂无图片推荐广告！</font></p></td>"
rs.close
set rs=nothing                            
else 
i=0
n=rs.recordcount
do while not rs.eof  
%> 



    <TD width=188 background=images/188x170_1.jpg>
      <P style="MARGIN-TOP: 10px" align=center><% if rs("url")<>"" and rs("url")<>"http://" then %><a href="<%=rs("url")%>" target="_blank"><img src="<%=rs("pic")%>" border="0" width="170" height="119"></a><% else %><img src="<%=rs("pic")%>" border="0" width="170" height="119"><% end if %> </P></TD>
  <%                                      
i=i+1
if i mod 4=0 then  
response.write "</tr>"        
end if
rs.movenext
loop  
if (n mod 4) <> 0 Then 
for i = 1 to (4 - (n mod 4))  
%>

 <td width=188 background=images/188x170_1.jpg>  
 <p style="margin-top: 0; margin-bottom: 0" align="center"><a href="gbook.asp" target="_blank"><img src="images/no.gif" border="0" width="170" height="119"></a></td>

<%                                                
next                                                  
end if                                                                            
rs.close                                                   
set rs=nothing                                                 
%> 

<% end if %>



<TD width=2>　</TD></TR></TBODY></TABLE>
<TABLE width=755 height=10 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width="100%"></TD>
    </TR>
  </TBODY>
</TABLE>
<!--以上是图片广告调用-->
<TABLE width=755 border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#E4E4E4>
  <TBODY>
    <tr>
      <td width="50" height="27" align="center"><a href="ad.asp" class="style3 style6"><font style="font-size:14px">全部</font></a></td>
      <%
sql="select * from type"               
set rs=server.createobject("adodb.recordset")               
rs.open sql,connstr,1,1 
if rs.eof then                          
response.write "<p align='center'><font color='#FF0000'>暂无文字广告！</font></p>"
rs.close
set rs=nothing                            
else
i=0                                                                                            
do while not rs.eof                                                       
%>
      <td width="50" height="27" align="middle" class="style6"><a href="type.asp?name=<%=rs("name")%>"><strong><font style="font-size:14px"><%=rs("name")%></font></strong></a> </td>
      <%   
i=i+1  
if i mod 14=0 then  
response.write "</tr><tr>"    
end if      
rs.movenext 
loop
rs.close
set rs=nothing
end if
%>
      <td width="101" height="27" colspan="2" align="center" class="style7"><a href="fabu.asp" target="_blank" class="style6"><strong><font style="font-size:14px">※我要发布※</font></strong></a></td>
    </tr>
  </TBODY>
</TABLE>
<TABLE width=755 height=10 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
<TD width="100%"></TD></TR></TBODY></TABLE>
<table width="755" height="154"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="515"><TABLE width="100%" height="205" border=0 cellPadding=0 cellSpacing=0>
      <TBODY>
        <TR>
          <TD align=middle height=40><img 
            src="images/weather.gif" border=0></TD>
          <TD align=middle height=40><IMG src="images/tv.gif" 
            border=0></TD>
          <TD align=middle height=40><IMG 
            src="images/bus.gif" border=0></TD>
          <TD align=middle height=40><IMG 
            src="images/book.gif" border=0></TD>
          <TD align=middle height=40><IMG 
            src="images/email.gif" border=0></TD>
          <TD align=middle height=40><IMG 
            src="images/movie.gif" border=0></TD>
          <TD align=middle height=40><IMG 
            src="images/gold.gif" border=0></TD>
          <TD align=middle height=40><IMG 
            src="images/date.gif" border=0></TD>
        </TR>
        <TR>
          <TD vAlign=top align=middle height=30><A 
            onclick="return newpage(this.href);" 
            href="#">天气预报</A></TD>
          <TD vAlign=top align=middle height=30><A 
            onclick="return newpage(this.href);" 
            href="#">电视预告</A></TD>
          <TD vAlign=top align=middle height=30><A 
            href="#" target=_blank>区号邮编</A></TD>
          <TD vAlign=top align=middle height=30><A 
            href="#" 
target=_blank>成语词典</A></TD>
12 下一页
⌨️ 快捷键说明

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