content.asp

结合了某度和AH的个人主页 功能比较完整

<br>
      <br> 
      <%
	  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 =5
      total  = rs.RecordCount
      mypagesize=rs.pagesize
      rs.absolutepage = page
	  pagec=rs.pagecount

	  do while not rs.eof
	  %>
      <table width="80%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          
    <td width="49%"><font color=#86540c>&nbsp;<img src=<%= rs("xq") %> alt="心情图标" width="19" height="19" border="0" align="absmiddle">&nbsp;<%= rs("title") %></font></td>
          
    <td width="51%" align="right"><%= rs("dateandtime") %> <img src="<%= rs("tianqi") %>" alt="天气" border="0" align="absmiddle"></td>
        </tr>

      </table>
      
<table width="80%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><hr align="left" width="400" size="1" color="#86540c"></td>
  </tr>
</table>
<table width="80%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td  width="400" style="Word-Wrap:break-word">
		  <%
		   content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   
		   'content=replace(content,chr(13),"<br>")
		   'content=replace(content,chr(32),"&nbsp;")
		   Response.Write(content)
		   %>
		   </td>
        </tr>
        <tr> 
          
    <td align="right"> 
      <%if session("admin")="admin" then%>
      　<a href=change.asp?id=<%=rs("id")%>&><img src="img/edit.gif" alt="编辑" border="0"></a><a onClick="return checkok()" href=del.asp?id=<%=rs("id")%>><img src="img/del.gif" alt="删除" border="0"></a> 
      <%end if%> 
    </td>
        </tr>
      </table>
      <br> <br>
      <%
	  n=n+1
	  rs.movenext
      if n>=rs.pagesize then exit do    
	  loop
	  %>
      <br>
      <table width="80%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="center"> 
            <%
			if cstr(page)=1 then
			Response.Write("←&nbsp;")
			else
		  if page>1 and page=pagec then%>
            <a href="index.asp?page=<%=page-1%>">←</a> 
            <%end if%> 
            <% if page<>1 and page<>pagec then%> 
            <a href="index.asp?page=<%=page-1%>">←</a>  
            <%end if 
			end if
			for i=1 to page-1
			response.Write("<a href=index.asp?page="&i&">"&i&"</a>&nbsp;")
            next
			response.Write("<font coālor=red>"&page&"</font>")
			for j=page+1 to pagec
			response.Write("&nbsp;<a href=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="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="index.asp?page=<%=page+1%>">→</a>  
            <%end if%> 
            <%end if%> 

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