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

📄 index.asp

📁 ASP中文教程
💻 ASP
字号:
🔍 
<!--#include file="articleconn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ASP技巧专题</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function popwin2(id,path)
{		window.open("openarticle.asp?id="+id+"&ppath="+path,"","height=450,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<%
   const MaxPerPage=18
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j

   dim typename
   
   typename="ASP技巧专题"
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   
%>

<body>

<table border="0" width="100%" cellspacing="0" cellpadding="15">
  <tr>
    <td width="100%"><div align="center"><center><table border="1" width="35%" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%"><img src="logo.gif" WIDTH="454" HEIGHT="60"></td>
      </tr>
    </table>
    </center></div></td>
  </tr>
</table>
<div align="center"><center>

<table border="0" width="92%" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="0%"><img src="../a2.gif" WIDTH="8" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="../index.asp"><font color="#FFFFFF">本站首页</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="../asp/index.htm"><font color="#FFFFFF">ASP基础</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="index.asp"><font color="#FFFFFF">ASP技巧</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="12%" bgcolor="#008040"><p align="center"><a href="../sql/index.asp"><font color="#FFFFFF">SQL Server</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="../faq/index.asp"><font color="#FFFFFF">ASP FAQ</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="../zhujian/index.asp"><font color="#FFFFFF">ASP组件</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="../download/default.asp"><font color="#FFFFFF">ASP下载</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="10%" bgcolor="#008040"><p align="center"><a href="../ubb/default.asp"><font color="#FFFFFF">动网论坛</font></a></td>
        <td width="1%"><img src="../a1.gif" WIDTH="15" HEIGHT="22"></td>
        <td width="12%" bgcolor="#008040"><p align="center"><a href="../link/index.asp"><font color="#FFFFFF">友情链接</font></a></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="100%" style="border-left: thin dotted rgb(0,128,0); border-right: thin dotted rgb(0,128,0)"><p align="center"><br>
    您现在的位置&gt;&gt;<font color="#FF0000">动网ASP技巧专题</font></p>
    <div align="center"><%
dim sql
dim rs
sql="select articleid,title,dateandtime,hits from learning order by articleid desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align='center'> 还 没 有 任 何 文 章</p>"
   else
	  totalPut=rs.recordcount
      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut \ MaxPerPage
	   else
	      currentpage= totalPut \ MaxPerPage + 1
	   end if

      end if
       if currentPage=1 then
           showpage totalput,MaxPerPage,"index.asp"
            showContent
            showpage totalput,MaxPerPage,"index.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,MaxPerPage,"index.asp"
            showContent
             showpage totalput,MaxPerPage,"index.asp"
        else
	        currentPage=1
           showpage totalput,MaxPerPage,"index.asp"
           showContent
           showpage totalput,MaxPerPage,"index.asp"
	      end if
	   end if
   rs.close
   end if
	        
   set rs=nothing  
   conn.close
   set conn=nothing
  

   sub showContent
       dim i
	   i=0
  
%>
<div align="center"><center><table border="1" cellspacing="0" width="589" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0">
      <tr>
        <td width="46" align="center" bgcolor="#D0D0D0" height="20"><strong>ID号</strong></td>
        <td width="381" align="center" bgcolor="#D0D0D0"><strong>文章标题</strong></td>
        <td width="98" align="center" bgcolor="#D0D0D0"><strong>加入日期</strong></td>
        <td width="58" align="center" bgcolor="#D0D0D0"><strong>点击</strong></td>
      </tr>
<%do while not rs.eof%>
      <tr>
        <td height="23" width="46"><p align="center"><%=rs("articleid")%></td>
        <td width="381"><p align="center"><a href="javascript:popwin2(<%=rs("articleid")%>)"><%=rs("title")%></a></td>
        <td width="98"><p align="center"><font color="red"><i>【<%=rs("dateandtime")%>】</i></font></td>
        <td width="58"><p align="center"><%=rs("hits")%></td>
      </tr>
<% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
    </table>
    </center></div><%
   end sub 

function showpage(totalnumber,maxperpage,filename)
  dim n
  if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
  response.write "<form method=Post action="&filename&">"
  response.write "<p align='center'><font color='#000080'>&gt;&gt;分页</font>&nbsp;"
  if CurrentPage<2 then
    response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&>首页</a>&nbsp;"
    response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font color='#000080'>下一页 尾页</font>"
  else
    response.write "<a href="&filename&"?page="&(CurrentPage+1)
    response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
  end if
   response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&CurrentPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
    response.write "<font color='#000080'>&nbsp;共<b>"&totalnumber&"</b>篇文章 <b>"&maxperpage&"</b>篇文章/页</font> "
   response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="&currentpage&">"
   response.write "<input class=buttonface type='submit'  value=' Goto '  name='cndok'></span></p></form>"
       
end function

 
%>
<p align="center"><font color="#000080">ASP动网先锋</font>，<a href="http://aasp.yeah.net">http://aasp.yeah.net</a><br>
    <a href="mailto:wodeail@etang.com">Disigner:Wodeail</a><font color="#000080">,OICQ:421634｜&copy;2000,All 
    Right Server</font> </p>
    </div></td>
  </tr>
</table>
</center></div>
</body>
</html>

⌨️ 快捷键说明

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