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

HYname=session("HYname")
if HYname="" then
  Response.Write("<font color='#FF6600' size='6'><b>你还没有登录或返回刷新当前页面！<br>则可正常备份日记。</b></font>")
  Response.end
end if
set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from diary where HYname='"&HYname&"' order by date_insert desc"  
  rs.open SQL,conn,1,1
    if not rs.eof then  	    
      Response.Write("<font size='5'><b>共有日记 <font color='#FF6600'>"&rs.Recordcount&"</font> 篇</b></font><br><br>")
		do while not rs.eof
		title=rs("title")
		body=rs("body")
		date_book=rs("date_book")
		week=rs("week")
		weather=rs("weather")
		Response.Write(date_book&"&nbsp;&nbsp;&nbsp;&nbsp;"&weather&"&nbsp;&nbsp;&nbsp;&nbsp;"&week&"<br><br><font color='#335CB9'>"&title&"</font><br><br>"&body&"<br><font color='#3E3E3E' SIZE= '6' FACE= '宋体'>--------------------------------------------</font><br><br>")
		  rs.movenext
		loop
	else
		Response.Write("<font color='#FF6600' size='6'><b>你还没有写一篇日记！真是够懒的:)</b></font>")
	end if	
	rs.close
    set rs=Nothing
    CloseDataConn()
%>
<title>【 <%=HYname%> 】的日记备份</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #666666;
}
-->
</style>