index.asp

我勇 java 和access 做的一个网站

loop
rs.close 
set rs=nothing
end if%>
          </tbody>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<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">&gt;&gt;图片动态</td>
        <td align="right">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center" class="altbg1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="center"><table width="157" height="6" border="0" cellpadding="0" cellspacing="0">
          <tr align="center" valign="middle">
            <%
set rs=server.CreateObject("adodb.Recordset")
sql="Select * from article where pic=1 order by id desc"
rs.open sql,conn,1,1
				dim n1
				n1=0
				%>
            <%while not rs.eof and n1<5 
		if  rs("picurl")<>"" then
				n1=n1+1
				%>
            <td><table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="150"><table border="0" align="center" cellpadding="2" cellspacing="2" bgcolor='#ffffff' style="border: 0px double #FFFFFF">
                      <tr>
                        <td><table border="0" align="center" cellpadding="3" cellspacing="2" bgcolor='#ffffff' style="border: 1px double #666666">
                            <tr>
                              <td align="center" valign="middle"><a href="/html/<%=rs("class_id")%>/<%=rs("fname")%>" target="_blank"><img src='<%=trim(rs("picurl"))%>'  alt='<%=rs("title")%>' width="120" height="91" border="0" /></a></td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td>
                </tr>
                <tr>
                  <td align="center"><a href="\&quot;html/<%=rs("c_filepath")%>" title="<%=rs("title")%>" target="\&quot;_blank\&quot;"><%=left(rs("title"),10)%></a></td>
                </tr>
            </table></td>
            <td width="4"></td>
            <% end if
	rs.movenext
	wend
	n1=0
	rs.movefirst
 %>
            <%
while not rs.eof and n1<3
if  rs("firstImageName")<>"" then
n1=n1+1
%>
            <% end if
rs.movenext
wend
%>
          </tr>
        </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=6" 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=6 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>
    <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=7" 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=7 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=8" 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=8 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 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=9" 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=9 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 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">&gt;&gt;栏目统计</td>
        <td align="right">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center" class="altbg1"><%
SqlArticleCount= "Select Count(*)  from article"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
共有文章：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|　
<%
SqlArticleCount= "Select Count(*)  from article where class_id=1"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=1" target="_blank">旅游动态</a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|　
<%
SqlArticleCount= "Select Count(*)  from article where class_id=2"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=2" target="_blank">旅游景点</a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|　
<%
SqlArticleCount= "Select Count(*)  from article where class_id=3"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=3" target="_blank">旅游线路</a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|
<%
SqlArticleCount= "Select Count(*)  from article where class_id=4"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=4" target="_blank">旅游攻略</a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇<br />
<%
SqlArticleCount= "Select Count(*)  from article where class_id=5"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=5" target="_blank">旅游美文</a><a href="class.asp?class_id=4"></a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|　
<%
SqlArticleCount= "Select Count(*)  from article where class_id=6"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=6" target="_blank">节庆活动</a><a href="class.asp?class_id=4"></a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|　
<%
SqlArticleCount= "Select Count(*)  from article where class_id=7"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=7" target="_blank">乡村旅游</a><a href="class.asp?class_id=4"></a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|　
<%
SqlArticleCount= "Select Count(*)  from article where class_id=8"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=8" target="_blank">青海美食</a><a href="class.asp?class_id=4"></a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇　|
<%
SqlArticleCount= "Select Count(*)  from article where class_id=9"
Set RsArticleCount=conn.Execute(SqlArticleCount)
%>
<a href="class.asp?class_id=9" target="_blank">旅游商品</a><a href="class.asp?class_id=4"></a>：<font color="#FF0000"><%=RsArticleCount(0)%></font> 篇</td>
  </tr>
</table>
<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">&nbsp;</td>
        <td align="right">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td align="center" class="altbg1"><table cellspacing="0" cellpadding="0">
      <tr>
        <td align="center"><a href="http://www.miibeian.gov.cn">青ICP备05001049号 </a></td>
      </tr>
      <tr>
        <td align="center">Copyright &copy; 2007 青海旅游网 All Rights   Reserved</td>
      </tr>
      <tr>
        <td align="center">未经本站书面特别授权，请勿转载或建立镜像，违者依法必究</td>
      </tr>
      <tr>
        <td align="center">本站由青海旅游信息中心制作维护<script src='http://s36.cnzz.com/stat.php?id=25148&web_id=25148' language='JavaScript' charset='gb2312'></script></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<script language="javascript" src="images/Std_StranJF.Js"></script> 
</body>
</html>