📄 index1.asp

📁 java_blog是一个非常好的blog
💻 ASP
字号:
<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="ubbcode.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Page-Exit" content="revealTrans(Duration=1.0,Transition=12)">
<script language=javascript>     
var    currentpos,timer;     

function    initialize()     
{     
timer=setInterval("scrollwindow()",90);     
}     
function    sc(){     
clearInterval(timer);     
}     
function    scrollwindow()     
{     
currentpos=document.body.scrollTop;     
window.scroll(0,++currentpos);     
if    (currentpos    !=    document.body.scrollTop)     
sc();     
}     
document.onmousedown=sc     
document.ondblclick=initialize     
</script>  
<link href="skin_1.css" rel="stylesheet" type="text/css">
<title>RanRan</title>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head> 
<body bgcolor="#FDFDFD" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<p><img src="../Images/Mind.jpg" alt="1" width="350" height="40"></p>
<p>
  <% 
    dim rs 
    dim sql 
    msg_per_page    =    12                                                        
    set rs    =    server.createobject("adodb.recordset") 
    sql = "select * from news order by id desc"                                       
    rs.cursorlocation    =    3                                                    
     
    rs.pagesize    =    msg_per_page                                                
    rs.open sql,conn,0,1                                                         

    if err.number<>0 then                                                        '错误处理 
        response.write "数据库操作失败：" & err.description 
        err.clear 
    else 
        if not (rs.eof and rs.bof) then                                            '检测记录集是否为空 
            totalrec    =    RS.RecordCount                                        'totalrec：总记录条数 
            if rs.recordcount mod msg_per_page    =    0 then                        '计算总页数,recordcount:数据的总记录数 
                n    =    rs.recordcount\msg_per_page                                'n:总页数 
            else                                                                 
                n    =    rs.recordcount\msg_per_page+1                         
            end if                                                                 

            currentpage    =    request("page")                                         
	 If currentpage <> "" then 
                currentpage =  cint(currentpage) 
                if currentpage < 1 then   
                    currentpage = 1 
                end if   
                if err.number <> 0 then  
                    err.clear 
                    currentpage    =    1 
                end if 
            else 
                currentpage = 1 
            End if                                                                 
            if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then  
                currentPage=1 
            end if 
            rs.absolutepage    =    currentpage                                    'absolutepage：设置指针指向某页开头                
	 
            rowcount        =    rs.pagesize                                    'pagesize：设置每一页的数据记录数                
	dim i 
            dim k 
%>
</p>
<table width="560" border="0" cellspacing="10" cellpadding="10">
  <tr>
    <td height="10"></td>
  </tr>
</table>
<%do while not rs.eof and rowcount > 0%>
<table width="560" border="0" cellspacing="10" cellpadding="10">
  <tr>
    <td class="xndyk"><table width="96%" border="0" cellspacing="0" cellpadding="3">
        <tr>
          <td>&nbsp;<img src="../Images/thbp.gif" alt="1" width="11" height="11" align="absMiddle">&nbsp;<%=rs("title")%> |天气：<%=rs("user")%></td>
        </tr>
        <tr>
          <td height="1" background="images/heng-dian.gif"></td>
        </tr>
        <tr>
          <td bgcolor="#ffffff"><%=UBBCode(rs("text"))%><br>
            <div align="right"><font color="#999999"><%=rs("data")%></font></div> </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="560" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="15"></td>
  </tr>
</table>
<% 
                        rowcount=rowcount-1 
                        rs.MoveNext 
            loop 
        end if 
    end if 
    rs.close 
    set rs=nothing 
%> 
   
</table> 
<table border="0" align=right>
  <tr> 
    <td  valign="middle" align=right> 
      <%call listPages()%>
    </td>
  </tr>
</table> 
</body> 
</html> 
<% 
    sub listPages()                                                                 
        'if n <= 1 then exit sub                                                     
            for i=0 to n\msg_per_page-1  
                for j=1 to msg_per_page  
%>  
                    <font size="2" color="#006600"> 
                    <a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">
[<% =i*msg_per_page+j %>]</a></font> 
         <%      
                next  
            next 
            EndPage = n mod msg_per_page  
            for j=1 to EndPage  
         %>  
                <font size="2" color="#006600"> 
                <a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">
<%if (i*msg_per_page+j)=currentpage then%><b><%else%><%end if%>[<% =i*msg_per_page+j %>]</b></a></font> 
          <%next%> 
          <font color=black face="arial" > 
          &nbsp;&nbsp;<br>当前页：<font color=#FF000000><%=currentpage%>/<%=n%></font>　随笔总数：<font color=#FF000000><%=totalrec%></font>&nbsp;条
　</font>每页显示：<font color=#FF000000>12</font><font face="arial" color="black">&nbsp;</font>条&nbsp;&nbsp;
          <%end sub%>
⌨️ 快捷键说明

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