diarybook_hot.asp

来自「功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私」· ASP 代码 · 共 55 行

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

'如果titleCount为8则是顶端发的变量，否则为日记左侧发的变量
titleCount = Request("titleCount")
set rs=server.CreateObject("ADODB.Recordset")
  'if titleCount = 8 then  
  	SQL="select count(HYname) as 'diary_count',HYname from diary group by HYname order by count('diary_count') desc"
  'else
  	'SQL="select * from diary where order by look_counter desc"
  'end if
  rs.open SQL,conn,1,1
    if not rs.eof then
	 if titleCount = 8 then
	  i=1	
	  do while i<=8
	    Response.Write("diary_count"&i&"="&rs("'diary_count'")&"篇&")	'日记数
	    Response.Write("HYname"&i&"="&rs("HYname")&"&") '会员名
	  i=i+1
      rs.MoveNext
	  if rs.eof then exit do end if	
	  loop
	 else
		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("diary_count"&i&"="&rs("'diary_count'")&"&")	'日记数
				Response.Write("HYname"&i&"="&rs("HYname")&"&") '会员名
			i=i+1	
			if i>maxPerPage then exit do
			rs.movenext
			Loop
		  	Response.Write("recordCount="& rs.recordCount &"&page="& page &"&pageCount="& rs.pageCount &"&maxPerPage="&maxPerPage&"&")
		  end if
		  '发送加载成功
		  Response.Write("diary_count=1&")
		else
		  Response.Write("diary_count=0")
	end if
	rs.close
    set rs=Nothing
    CloseDataConn()
%>