liyu_content.asp

一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊

<table width="100%" height="400" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
      <%
	  whichpage=Trim(Request.QueryString("page"))
	  if whichpage="" then
	  page=1
	  else
	  page=whichpage
	  end if
	  if rs.bof and rs.eof then
	  response.Write("还没有日记呢，请添加日记先！")
	  else
	  rs.pagesize =liyuindex2pagesize
      total  = rs.RecordCount
      mypagesize=rs.pagesize
      rs.absolutepage = page
	  pagec=rs.pagecount

	  do while not rs.eof
	  %>

<table width="94%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="3%" align="center"><font color="#FFFFFF"><%= rs("id") %></font>
</td>
<td width="50%" background="images/link.gif">&nbsp;<img src="images/arrow.gif" width="11" height="12" border="0">&nbsp;<a href="liyu_txt.asp?id=<%= rs("id") %>" target="_blank"><%= rs("title") %></a></td>
<td width="10%" align="right" background="images/link.gif"> 
<%if session("admin")="liyu" then%>
<a href=do.asp?id=<%=rs("id")%>&action=edit target="_blank"><img src="images/edit.gif" alt="编辑" width="16" height="15" border="0"></a><a onClick="return checkok()" href=do.asp?id=<%=rs("id")%>&action=del><img src="images/del.gif" alt="删除" width="15" height="15" border="0"></a> 
<%end if%>
      </td>
<td width="20%" align="right" background="images/link.gif"><%= rs("dateandtime") %></td>
<td width="17%" align="right" background="images/link.gif">&nbsp;</td>
</tr>
</table>
      
<table width="90%" height="5" border="0" cellpadding="0" cellspacing="0">
<tr><td><img src="images/MN.gif" width="1" height="1"></td></tr>
</table>

<%
n=n+1
rs.movenext
if n>=rs.pagesize then exit do    
loop
%>
      












      <table width="85%" height="80" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td> 
            <%
			if cstr(page)=1 then
			Response.Write("←&nbsp;")
			else
		  if page>1 and page=pagec then%>
            <a href="liyu_index.asp?page=<%=page-1%>">←</a> 
            <%end if%>
            <% if page<>1 and page<>pagec then%>
            <a href="liyu_index.asp?page=<%=page-1%>">←</a> 
            <%end if
			end if
			for i=1 to page-1
			response.Write("<a href=liyu_index.asp?page="&i&">"&i&"</a>&nbsp;")
            next
			response.Write("<font color=red>"&page&"</font>")
			for j=page+1 to pagec
			response.Write("&nbsp;<a href=liyu_index.asp?page="&j&">"&j&"</a>")
            next
			%>
            <%
			if cstr(page)=cstr(rs.pagecount) then%>
            → 
            <%else%>
            <%
			if cstr(page)=1 and cstr(page)<>cstr(rs.pagecount) and cstr(rs.pagecount)<>0 then%>
            <a href="liyu_index.asp?page=<%=page+1%>">→</a> 
            <%end if%>
            <%
			if cstr(page)<>1 and cstr(page)<>cstr(rs.pagecount) and cstr(rs.pagecount)<>0 then%>
            <a href="liyu_index.asp?page=<%=page+1%>">→</a> 
            <%end if%>
            <%end if%>          </td>
        </tr>
      </table>

</td>
</tr>
</table>
<%end if%>