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

📄 class.asp

📁 我勇 java 和access 做的一个网站
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
class_id=request("class_id")
page=request.querystring("page")
if class_id="" then
sql="select id,class_id,class_name,class_big,fname,oktime,title,up,hits from article order by id desc"
else
sql="select id,class_id,class_name,class_big,fname,oktime,title,up,hits from article where class_id="&class_id&" order by id desc"
end if
rs.open sql,conn,1,1
class_big=rs("class_big")
on error resume next
maxjilu=rs.recordcount
perpage=20 '每页显示记录数
t=page*perpage
rs.absoluteposition=t+1
f=t+perpage
%>
<!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><%=rs("class_name")%></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 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"><span class="table_1_top">你的位置:<a href="/">首页</a>&gt;&gt;<%=rs("class_name")%></span></td>
        <td align="right">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td class="altbg1"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="table_1_inc">

      <%
ww=0
for i=t+1 to f
ww=ww+1
%>
      <tr <%if (ww mod 2)=1 then%>bgcolor="#F8F8FA"<%end if%> >
        <td width="28"><img src="images/ico_info.png" width="20" height="18" /></td>
        <td width="628"><a href="../html/<%=rs("class_id")%>/<%=rs("fname")%>" target="_blank"><%=rs("title")%></a></td>
        <td width="100" align="center"><%=rs("oktime")%></td>
      </tr>
      <%
rs.movenext 
if rs.eof then
exit for
rs.close 
set rs=nothing
end if
next
tt=page*perpage
    if page<0 then
   page=0
   end if
   if tt>=maxjilu then
   ttt=page-1
   end if
   if maxjilu-tt<perpage then
   ttt=page-1
      else
   ttt=page
   end if
   u=1
   do while u*perpage<maxjilu
   u=u+1
   loop
session("page")=ttt
set conn=nothing
%>
    </table></td>
  </tr>
  <tr>
    <td class="altbg1"><div style="text-align:left;background-color:#e6e6e6; height:20px;padding-top:2px;font-size:12px;">找到<font color="#FF0000"><%=maxjilu%></font>条| <a href="class.asp?class_id=<%=class_id%>&amp;page=0">首页</a>-<a href="class.asp?class_id=<%=class_id%>&amp;page=<%=(page-1)%>">上页</a>-<a href="class.asp?class_id=<%=class_id%>&amp;page=<%=(page+1)%>" >下页</a>-<a href="class.asp?class_id=<%=class_id%>&amp;page=<%=(u-1)%>" >末页</a>
          <% 
  if ttt<=5 then 
  uu=0 
  while uu<u  
   %>
          <a href="class.asp?class_id=<%=class_id%>&amp;page=<%=(uu)%>"><%=(uu+1)%></a>
          <%uu=uu+1 
 wend 
  else%>
          <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt-6)%>">[<%=(ttt-5)%>]</a> <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt-5)%>">[<%=(ttt-4)%>]</a> <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt-4)%>">[<%=(ttt-3)%>]</a> <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt-3)%>">[<%=(ttt-2)%>]</a> <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt-2)%>">[<%=(ttt-1)%>]</a> <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt-1)%>" >[<%=(ttt)%>]</a> <a style="color:blue" href="class.asp?class_id=<%=class_id%>&amp;page=<%=(ttt)%>">[<%=(ttt+1)%>]</a>
          <%end if%>
    </div></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>

⌨️ 快捷键说明

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