www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\main3.asp

    <!--#include file="conn.asp"-->
<!--#include file="admin/inc/ubbcode.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<SCRIPT language=JavaScript src="rightclick.js"></SCRIPT>
<style type="text/css">
<!--
A{text-transform: none; text-decoration: none; color: #000000;}
A:hover {color: #ff0000;text-decoration:derline}
body,table {font-size:9pt;font-family: Verdana, 宋体;color: #000000}
-->
</style>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onselectstart='return false' ondrag='return false' oncontextmenu='return false'>

<% 
Set FUbb = New FunctionUBB

	set rs=server.CreateObject("adodb.recordset")
	sql="select * from diary where d_type='公开日记' order by id desc"
	rs.open sql,conn,1,3
  PageSize=web_no
%>
<!--#INCLUDE FILE="page_up_down.asp"-->
<%
	if rs.eof and rs.bof then
		response.write ("<td>暂时没有日记...</td>")
	else
	do while not rs.eof
	if processedrecord >=pagesize then 
	exit do 
	end if
%>
<table width="100%"  border="0" cellspacing="2" cellpadding="2">
  <tr>
    <td width="80%">NO <font color="red"><%=rs("id")%></font> <img src="img/art.gif" width="9" height="15" align="bottom"> <font color="#009900"><%=rs("title")%></font></td>
    <td width="20%"><font color="#009900"><%=rs("weather")%></font></td>
  </tr>
  <tr>
    <td colspan="2" background="img/line.gif"></td>
  </tr>
  <tr>
    <td colspan="2" style="line-height:22px;color:#666666"><%=FUbb.UBBCode(Rs("Content"))%></td>
  </tr>
  <tr align="right">
    <td colspan="2"><font color="#999999"><%=rs("add_time")%></font></td>
  </tr>
  <tr>
    <td colspan="2" height=5></td>
  </tr>
</table>
<%
	processedrecord=processedrecord+1
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
%>
<table width="75%" border="0" cellspacing="0" cellpadding="0" align="right">
    <tr height="25">
      <td align="right" style="font-size:10px;color:#666666;"><img src="img/count.gif" border="0" align="absbottom"> <%=RecordCount%> <img src="img/page.gif" border="0" align="absbottom"> <font color="green"><%=Page_No%></font>-<%=pagecount%> 
		<a href="?page_no=1" title=首页><img src="img/first.gif" border="0" align="absbottom"></a>&nbsp;
		<%if page_no>1 then%><a href="?page_no=<%=page_no-1%>" title=上一页><img src="img/prev.gif" border="0" align="absbottom"></a><%else%><span  title=上一页><img src="img/prev.gif" border="0" align="absbottom"></span><%end if%>&nbsp;
		<%if page_no<pagecount then%><a href="?page_no=<%=page_no+1%>" title=下一页><img src="img/next.gif" border="0" align="absbottom"></a><%else%><span  title=下一页><img src="img/next.gif" border="0" align="absbottom"></span><%end if%>&nbsp;
		<a href="?page_no=<%=pagecount%>" title=末页><img src="img/end.gif" border="0" align="absbottom"></a>
	  </td>
    </tr>
</table>
</body>
</html>