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

id = session("id")
if id <> "" then
  Response.Write("id="&id&"&")
else
  Response.Write("id=6&")
  id=6
end if
set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan where id="&id
  rs.open SQL,conn,1,1
    if not rs.eof then 
     Response.Write("webJianJie="&rs("HYhomeRadem")&"&")
	 if rs("HYsex")=1 then
	   HYsexTemp = "酷哥"
	 else
	   HYsexTemp = "靓女"
	 end if
	 
	 '会员发布的公告
	 set rsGongGao=server.CreateObject("ADODB.Recordset")
	   SQL_GongGao="select * from HYGongGao where HYname='"&rs("HYname")&"' order by HYGongGaodata desc"
	 rsGongGao.open SQL_GongGao,conn,1,1
	   if not rsGongGao.eof then
	     do while not rsGongGao.eof
		   HYwebGongGao = rsGongGao("HYwebGongGao")
		   HYGongGaodata = rsGongGao("HYGongGaodata")
		   PL_all_body1 = HYwebGongGao&"<br><font color='#989898'>发布时间："&FormatDateTime(HYGongGaodata,2)&"</font><br><br>"
		   PL_all_body2 = PL_all_body2&PL_all_body1
		   rsGongGao.movenext
		 loop
	   end if
	   
	Response.Write("HYwebGongGao="&PL_all_body2&"&") 
	Response.Write("diary_HYname="&rs("HYname")&"&") 
	Response.Write("HYJianJie=站长: "&rs("HYname")&"<br>"&HYsexTemp&"<br>QQ:"&rs("HYQQ")&"<br>"&rs("diary_title")&"<br>主页:"&rs("HYhome")&"<br>生日:"&rs("diary_birthday")&"<br>"&rs("diary_foreword")&"<br>注册时间:"&rs("HYzhuchedate")&"&")
	else
	  Response.Write("diary_gongKai=0")
	end if
	Response.Cookies("HYnameid")=""
	rs.close
    set rs=Nothing
    CloseDataConn()
%>