ztflash.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 版本
what=Request("what")
set rs=server.CreateObject("ADODB.Recordset")
SQL="select * from ZhuanTiFlash Order By ZTorderDate Desc"
rs.open SQL,conn,1,1

if not rs.eof then
  '主页发送的变量
  if what=1 then
    '发送加载成功
    Response.Write("ZTflash=1&")
    rs.MoveFirst
	i=1	
	do while i<=5	
	if rs("ZTdate")=date() then
	  '显示新
	  ZTtitle=rs("ZTtitle")&" <FONT COLOR='#D31919'>新</FONT>&"
	else
	  ZTtitle=rs("ZTtitle")
	end if
	Response.Write("ZTtitle"&i&"="& ZTtitle &"&")
	Response.Write("ZTid"&i&"="&rs("ZTid")&"&HYname"&i&"="&rs("HYname")&"&")
	Response.Write("ZTdate"&i&"="&FormatDateTime(rs("ZTdate"),2)&"&ZTeditDate"&i&"="&rs("ZTeditDate")&"&ZTcount"&i&"="&rs("ZTcount")&"&")
	i=i+1
    rs.MoveNext
	if rs.eof then exit do end if
	loop
  else
    '设计专题   
	maxPerPage=19 '每页显示数
    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) 
  	  if rs("ZTdate")=date() then
	    '显示新
	    ZTtitle=Left(trim(rs("ZTtitle")),21)&" <FONT COLOR='#D31919'>新</FONT>&"
	  else
	    ZTtitle=Left(trim(rs("ZTtitle")),21)
	  end if
	Response.Write("ZTtitle"&i&"="& ZTtitle &"&")
	Response.Write("ZTid"&i&"="&rs("ZTid")&"&HYname"&i&"="&rs("HYname")&"&")
	Response.Write("ZTdate"&i&"="&FormatDateTime(rs("ZTdate"),2)&"&ZTeditDate"&i&"="&rs("ZTeditDate")&"&ZTcount"&i&"="&rs("ZTcount")&"&")
	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("ZTflash=1&")
  end if
else
  '发送没有数据
  Response.Write("ZTflash=0&")
end if
rs.close
set rs=Nothing
CloseDataConn()
%>