diary_all.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 版本

HYnameid = session("HYnameid")
all_diary=Request("all_diary")
data_diary=request("data_diary")
set rs=server.CreateObject("ADODB.Recordset")
if all_diary = "" then
  if HYnameid = "" then
  	'如果点击过日期控件则加入按日期显示日记
  	if data_diary <> "" then
		SQL="select * from diary where date_insert like '%"&data_diary&"%' order by date_insert desc"
	else
    	SQL="select * from diary order by date_insert desc"
	end if
  else
  	'如果点击过日期控件则加入按日期显示日记
  	if data_diary <> "" then
		SQL="select * from diary where HYname='"&HYnameid&"' and date_insert like '%"&data_diary&"%' order by date_insert desc"
	else
    	SQL="select * from diary where HYname='"&HYnameid&"' order by date_insert desc"
	end if
  end if
else
	'如果点击过日期控件则加入按日期显示日记
	if data_diary <> "" then
		SQL = "select * from diary where date_insert like '%"&data_diary&"%' order by date_insert desc"
	else
  		SQL="select * from diary order by date_insert desc"
	end if
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("HYname"&i&"="&rs("HYname")&"&") 
		
		if rs("ifPassword")=0 then
		  Response.Write("title"&i&"="&Left(trim(rs("title")),13)&" *密*&")
		else
		  Response.Write("title"&i&"="&rs("title")&"&")
		end if 
		
		Response.Write("ifPassword"&i&"="&rs("ifPassword")&"&")
		Response.Write("date_insert"&i&"="&FormatDateTime(rs("date_insert"),2)&"&")
		Response.Write("look_counter"&i&"="&rs("look_counter")&"&")
	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("all_OK=1&")
  else
	  Response.Write("all_OK=0&")
  end if
	rs.close
    set rs=Nothing
    CloseDataConn()
%>