diary_look_liuyan.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'程序演示地址：http://www.5i58.net/diary.htm
'● 程序名：flash日记本和flash留言本  v1.2
'● 语言：ASP & as
'● 运行环境：Win2000 IIS，ASP+Access。
'● 开发者: www.5i58.net 我爱我吧学习网
'● 联系方式（技术支持）：QQ:50810089    MSN: [e-mail](VIP技术支持)
'如果您想用作商业用途，请与我们联系，升级为 VIP 版本

diary_HYname = Request("diary_HYname")
search_key = Request("search_key")

set rs=server.CreateObject("ADODB.Recordset")
  if search_key = "" then
    SQL="select * from diary_liuYan where diary_HYname='"&diary_HYname&"' order by diary_liuYan_reply_data desc"
  else
    SQL="select * from diary_liuYan where diary_HYname='"&diary_HYname&"' and diary_liuYan_title like '%"&search_key&"%' order by diary_liuYan_reply_data desc"
  end if
rs.open SQL,conn,1,1
  
  if not rs.eof then      
	  
	maxPerPage=13 '每页显示数
    page=Request("page") '页数
    if (page="" or isempty(page)) then page=1
	rs.pagesize=maxPerPage
	i=1 
	if not (rs.eof or err) then rs.move (page-1)*maxPerPage	
	 
	do while not (rs.eof or err) 	   
  	    Response.Write("id"&i&"="&rs("id")&"&")
	    Response.Write("diary_liuYan_name"&i&"="&rs("diary_liuYan_name")&"&")
		Response.Write("diary_liuYan_title"&i&"="&rs("diary_liuYan_title")&"&")
		Response.Write("diary_liuYan_add"&i&"="&rs("diary_liuYan_add")&"&")		
		Response.Write("diary_liuYan_QQ"&i&"="&rs("diary_liuYan_QQ")&"&")
		Response.Write("diary_liuYan_home"&i&"="&rs("diary_liuYan_home")&"&")
		Response.Write("diary_liuYan_email"&i&"="&rs("diary_liuYan_email")&"&")		
		Response.Write("diary_liuYan_img"&i&"="&rs("diary_liuYan_img")&"&")
		body = rs("diary_liuYan_body")
		
		 '回复主题
         set rsReply=server.CreateObject("ADODB.Recordset")
           SQLreply="select * from diary_liuYan_reply where id="&rs("id")
         rsReply.open SQLreply,conn,1,1 
		 
		 if not rsReply.eof then
		   body = body&"<font color='#989898'>------------------------------</font><br>"
	     do while not rsReply.eof
		 
		   PL_all_body1 = "<font color='#989898'>回复人:</font><font color='#7C0707'>"&rsReply("diary_liuYan_reply_name")&"</font>   <font color='#989898'>   时间:"&rsReply("diary_liuYan_reply_data")&"</font><br>"
		   PL_all_body1 = PL_all_body1&rsReply("diary_liuYan_reply_body")&"<br><font color='#989898'>------------------------------</font><br>"
		   body = body&PL_all_body1
		   
		 rsReply.movenext
		 loop		 		 
	     end if
		 reply_count = rsReply.recordCount
		 rsReply.close
		 
		Response.Write("reply_count"&i&"="&reply_count&"&")
		Response.Write("diary_liuYan_body"&i&"="&body&"&")
		Response.Write("diary_liuYan_IP"&i&"="&left(rs("diary_liuYan_IP"),9)&"...&")
		Response.Write("diary_liuYan_data"&i&"="&rs("diary_liuYan_data")&"&")
		Response.Write("diary_liuYan_guest"&i&"="&rs("diary_liuYan_guest")&"&")
		Response.Write("diary_liuYan_hide"&i&"="&rs("diary_liuYan_hide")&"&")		
		
	i=i+1	
	if i>maxPerPage then exit do
	rs.movenext
    Loop
	  Response.Write("recordCount="& rs.recordCount &"&page="& page &"&pageCount="& rs.pageCount &"&maxPerPage="&maxPerPage&"&")
     
	  '发送加载成功
	  Response.Write("diary_liuYan=1&")
else
  Response.Write("diary_liuYan=0")
end if
	rs.close
    set rs=Nothing
    CloseDataConn()
%>