content.asp

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

<%
	  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 =liyuindexpagesize
      total  = rs.RecordCount
      mypagesize=rs.pagesize
      rs.absolutepage = page
	  pagec=rs.pagecount
	  do while not rs.eof
%> 
<table width="412" border="0" cellpadding="0" cellspacing="0">
<tr> 
<td width="50%" align="left"><img src="<%= rs("tianqi") %>" alt="新鲜志" width="11" height="12" hspace="25" border="0"><b><%= rs("title") %></b>&nbsp;<%= rs("dateandtime") %></td>
<td width="40%" align="right">&nbsp;</td>
</tr>
</table>
      
<table width="412" height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="img/MN.gif" width="1" height="1"></td>
</tr>
</table>

<table width="475" border="0" cellspacing="20" cellpadding="0">
<tr> 
  <td width="435" height="190" valign="top" style="Word-Wrap:break-word">
    <%
If Rs("sdk")=1 then
if session("admin")="liyu" then
	                     content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   Response.Write(content)
end if
	        response.Write("此日记是保密日记，未登陆不得查阅！")
Else
	                     content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   Response.Write(content)
End If 
%>
  </td>
</tr>
</table>      
      
<table width="90%" height="50" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="right"><a href="plugin/pl/pinglun.html?id=<%=rs("id") %>" target="_blank">[发表评论]</a></div></td>
  </tr>
  <tr> 
    <td><div align="center"><img src="LY2LF/snow-i01.gif" width="35" height="35"></div></td>
  </tr>
</table>

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