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

📄 index.asp

📁 我勇 java 和access 做的一个网站
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>青海旅游网</title>
<link rel="StyleSheet" href="css/css.css" type="text/css">
<style type="text/css">
<!--
#Layer1 {
	position:absolute;
	left:173px;
	top:99px;
	width:68px;
	height:68px;
	z-index:1;
}
body,td,th {
	font-size: 12px;
}
body {
	background-color: #D7D7D7;
}
.STYLE7 {font-size: 14px}
.STYLE13 {color: #A80E11}
-->
</style>
</head>

<body>
<table cellspacing="1" cellpadding="1" width="780" align="center" class="tableborder">
  <tr>
    <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="header"> <a href="/">青海旅游网 - 青海旅游门户网</a></td>
        <td align="right"><a title="将本站设为你的首页" onclick="this.style.behavior='url(#default#homepage)';this.sethomepage('青海旅游网');return false;" href="http://www.qhly.gov.cn">设为首页</a> ┆ <a title="将本站加入到你的收藏夹" href="javascript:window.external.AddFavorite(location.href,document.title)">加入收藏</a> ┆ <a href="mailto:webmaster@qhly.gov.cn">联系我们</a> ┆ <a id="StranLink" title="點擊以繁體中文方式浏覽" href="#" name="StranLink">繁體中文</a><a id="StranLink" name="StranLink"></a></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center" class="altbg1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/banner.jpg" width="774" height="132" /></td>
        </tr>
    </table></td>
  </tr>
  <tr></tr>
  <tr>
    <td align="center" class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="25" class="header"><table width="100%" height="29" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <% sqlt="select * from class order by id"
set rst=server.createobject("ADODB.Recordset")
rst.open sqlt,conn,1,1
do while not rst.eof
%>
            <td align="center"><img src="images/m.gif" width="12" height="12" /> <a href="class.asp?class_id=<%=rst("id")%>" class="STYLE7"><%=rst("name")%></a></td>
            <%
rst.movenext
loop
rst.Close
set rst=nothing
%>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
  <tr></tr>
</table>
<table width="783" border="0" align="center" cellpadding="1" cellspacing="1">
  <tr>
    <td width="250"><table cellspacing="1" cellpadding="0" width="250" class="tableborder">
      <tr>
        <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td class="header"> &gt;&gt;最新动态</td>
              <td align="right">&nbsp;</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="200" align="center" valign="middle" class="altbg1"><table border="0" align="center" cellspacing="5" bordercolor="#E1E1E1">
          <tr>
            <td><div align="center">
                <script type="text/javascript">
 <!-- 
 var focus_width=210;
 var focus_height=165;
 var text_height=23;
 var swf_height = focus_height+text_height;

 var pics = "";
 var links = "";
 var texts = "";
<%
Set rs=Server.CreateObject("Adodb.Recordset")
Sql= "Select Top 5 * from article where pic=1 and picurl like '%.jpg' order by id desc"
rs.open Sql,conn,1,1
if rs.Eof and rs.Bof then
%>
		pics += "images/nopic.jpg";
		links += "http://221.207.13.234";
		texts += "暂无图片新闻";
<%
else
	pic_n=0
	while (Not rs.Eof) 
	pic_n=pic_n+1
	%>
		pics += "<%=trim(rs("picurl"))%>";
		links += "/html/<%=rs("class_id")%>/<%=rs("fname")%>";
		texts += "<%=rs("title")%>";
		<%if (pic_n<5) then%>
		pics += "|";
		links += "|";
		texts += "|";
	<%
	end if
	rs.MoveNext
	Wend
end if
rs.close 
Set rs = Nothing
%>
	document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
	document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#ffffff">');
	document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
	document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
	document.write('<embed src="images/focus.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" ?bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
 document.write('</object>');
  //-->
                              </script>
            </div></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
    <td><table cellspacing="1" cellpadding="0" width="100%" align="center" class="tableborder">
      <tr>
        <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="89%" class="header">&gt;&gt;旅游动态</td>
              <td width="11%" align="center"><a href="class.asp?class_id=1" target="_blank"><img src="images/mores.gif" width="60" height="20" border="0" /></a></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="200" valign="top" class="altbg1"><table cellspacing="0" cellpadding="3" width="100%" border="0">
            <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 7 * from article where class_id=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
%>
            <tbody>
              <%else 
do while not rs.eof
%>
              <tr></tr>
              <tr>
                <td align="left" valign="middle" class="font"><img src="images/green-arrow.gif" width="8" height="8" /> <a href="/html/<%=rs("class_id")%>/<%=rs("fname")%>" title="<%=rs("title")%>" target="\_blank\"><%=left(rs("title"),30)%></a></td>
                <td width="90" height="0" align="right" valign="middle" class="font"><%= rs("oktime") %></td>
              </tr>
              <%     
rs.movenext 
loop
rs.close 
set rs=nothing
end if%>
            </tbody>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="783" border="0" align="center" cellpadding="1" cellspacing="1">
  <tr>
    <td width="395"><table cellspacing="1" cellpadding="0" width="100%" class="tableborder">
      <tr>
        <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="85%" class="header">&gt;&gt;旅游景点</td>
            <td width="15%" align="right"><a href="class.asp?class_id=2" target="_blank"><img src="images/mores.gif" width="60" height="20" border="0" /></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td class="altbg1"><table cellspacing="0" cellpadding="3" width="100%" border="0">
          <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 7 * from article where class_id=2 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
%>
          <tbody>
            <%else 
do while not rs.eof
%>
            <tr></tr>
            <tr>
              <td align="left" valign="middle" class="font"><img src="images/green-arrow.gif" width="8" height="8" /> <a href="/html/<%=rs("class_id")%>/<%=rs("fname")%>" title="<%=rs("title")%>" target="\_blank\"><%=left(rs("title"),30)%></a></td>
              <td width="90" align="right" valign="middle" class="font"><%= rs("oktime") %></td>
            </tr>
            <%     
rs.movenext 
loop
rs.close 
set rs=nothing
end if%>
          </tbody>
        </table></td>
      </tr>
    </table></td>
    <td><table cellspacing="1" cellpadding="0" width="100%" align="center" class="tableborder">
      <tr>
        <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="84%" class="header">&gt;&gt;旅游线路</td>
            <td width="16%" align="right"><a href="class.asp?class_id=3" target="_blank"><img src="images/mores.gif" width="60" height="20" border="0" /></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td align="center" class="altbg1"><table cellspacing="0" cellpadding="3" width="100%" border="0">
          <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 7 * from article where class_id=3 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
%>
          <tbody>
            <%else 
do while not rs.eof
%>
            <tr></tr>
            <tr>
              <td align="left" valign="middle" class="font"><img src="images/green-arrow.gif" width="8" height="8" /> <a href="/html/<%=rs("class_id")%>/<%=rs("fname")%>" title="<%=rs("title")%>" target="\_blank\"><%=left(rs("title"),30)%></a></td>
              <td width="90" align="right" valign="middle" class="font"><%= rs("oktime") %></td>
            </tr>
            <%     
rs.movenext 
loop
rs.close 
set rs=nothing
end if%>
          </tbody>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="783" border="0" align="center" cellpadding="1" cellspacing="1">
  <tr>
    <td width="395"><table cellspacing="1" cellpadding="0" width="100%" class="tableborder">
      <tr>
        <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="85%" class="header">&gt;&gt;旅游攻略</td>
            <td width="15%" align="right"><a href="class.asp?class_id=4" target="_blank"><img src="images/mores.gif" width="60" height="20" border="0" /></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td class="altbg1"><table cellspacing="0" cellpadding="3" width="100%" border="0">
          <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 7 * from article where class_id=4 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
%>
          <tbody>
            <%else 
do while not rs.eof
%>
            <tr></tr>
            <tr>
              <td align="left" valign="middle" class="font"><img src="images/green-arrow.gif" width="8" height="8" /> <a href="/html/<%=rs("class_id")%>/<%=rs("fname")%>" title="<%=rs("title")%>" target="\_blank\"><%=left(rs("title"),30)%></a></td>
              <td width="90" align="right" valign="middle" class="font"><%= rs("oktime") %></td>
            </tr>
            <%     
rs.movenext 
loop
rs.close 
set rs=nothing
end if%>
          </tbody>
        </table></td>
      </tr>
    </table></td>
    <td><table cellspacing="1" cellpadding="0" width="100%" align="center" class="tableborder">
      <tr>
        <td class="header"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="84%" class="header">&gt;&gt;旅游美文</td>
            <td width="16%" align="right"><a href="class.asp?class_id=5" target="_blank"><img src="images/mores.gif" width="60" height="20" border="0" /></a></td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td class="altbg1"><table cellspacing="0" cellpadding="3" width="100%" border="0">
          <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 7 * from article where class_id=5 order by id desc"
rs.open sql,conn,1,1
if rs.eof then
%>
          <tbody>
            <%else 
do while not rs.eof
%>
            <tr></tr>
            <tr>
              <td align="left" valign="middle" class="font"><img src="images/green-arrow.gif" width="8" height="8" /> <a href="/html/<%=rs("class_id")%>/<%=rs("fname")%>" title="<%=rs("title")%>" target="\_blank\"><%=left(rs("title"),30)%></a></td>
              <td width="90" align="right" valign="middle" class="font"><%= rs("oktime") %></td>
            </tr>
            <%     
rs.movenext 

⌨️ 快捷键说明

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