diary_qqh.asp

flash软件包 可以实现日记本功能 编译通过 可以使用

<%@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 版本

HYname = Request("HYname")
orderby = Request("orderby")
set rs=server.CreateObject("ADODB.Recordset")
  select case orderby
    case "0"
	  SQL="select * from QQH where QQH_HYname='"&HYname&"' and QQH_visible=0 order by QQH_date desc"
	case "1"
	  SQL="select * from QQH where QQH_HYname='"&HYname&"' and QQH_visible=1 order by QQH_date desc"
	case ""
      SQL="select * from QQH where QQH_HYname='"&HYname&"' order by QQH_date desc"
  end select
  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")&"&")
		Response.Write("QQH_HYname"&i&"="&rs("QQH_HYname")&"&")		
		Response.Write("title"&i&"="&rs("title")&"&")
		Response.Write("QQHbody"&i&"="&rs("QQHbody")&"&")
		Response.Write("QQH_date"&i&"="&rs("QQH_date")&"&")
		Response.Write("QQH_visible"&i&"="&rs("QQH_visible")&"&")
		
	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_QQH=1&")
  else
	  Response.Write("diary_QQH=0")
  end if
	rs.close
    set rs=Nothing
    CloseDataConn()
%>