logon222.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 版本
'点击自动登录
auto=Request("auto")
'退出登录
unlogon=Request("unlogon")
if unlogon="" then unlogon=1 else unlogon=Request("unlogon") end if

HY=Request.form("HYname")
HYpwd=Request.form("HYpwd")

if HY="" then
  if Request.Cookies("xuaXing")="false" or Request.Cookies("xuaXing")="" then '防止点击退出后按刷新重新载入Cookies
  HY=Request.Cookies("HYnameCookies")
  HYpwd=Request.Cookies("HYpwd")
    if auto="" then
      auto=1
    end if
  end if
end if

'判断是否要退出登录0为退出,1为已经登录

if unlogon=0 then
    '退出    
    Response.Cookies("logonIn")=""
	Response.Cookies("id")=""
	'Response.Cookies("HYname")="" 
	Response.Cookies("HYlogondate")=""
	Response.Cookies("HYvisitCount")=""
	Response.Cookies("HYsex")=""
	Response.Cookies("HYhome")=""
	Response.Cookies("HYhomeRadem")=""
	Response.Cookies("HYQQ")=""
	Response.Cookies("HYzhuchedate")=""
	Response.Cookies("HYip")=""	
	Response.Cookies("HYtopic")=""	
	Response.Cookies("HYemail")=""
	Response.Cookies("diary_title")=""
	Response.Cookies("diary_birthday")=""
	Response.Cookies("diary_foreword")=""
	Response.Cookies("diary_counter")=""
	Response.Cookies("HYquanXian")=""
	Response.Cookies("auto")=""
	session("HYname")=""
	session("type")=""
	Response.Cookies("xuaXing")="true"'防止退出后刷新
	Response.Write("unlogon=1&")
	Response.Write("logonIn=0")
    Response.End()
else
  '已经登录
  if Request.Cookies("logonIn")="true" then    
    Response.Write("id="&Request.Cookies("id")&"&")
    Response.Write("HYname="&Request.Cookies("HYname")&"&")
	Response.Write("HYpwd="&Request.Cookies("HYpwd")&"&")
	
	   Response.Cookies("HYnameCookies")=Request.Cookies("HYname")
	   Response.Cookies("HYpwd")=Request.Cookies("HYpwd")
	   
	   if Request.Cookies("auto")="true"  then
		'写入cookies时间		  
		  Response.Cookies("HYnameCookies").Expires=Date+365
		  Response.Cookies("HYpwd").Expires=Date+365
		else
		  Response.Cookies("HYnameCookies").Expires=Date+0
		  Response.Cookies("HYpwd").Expires=Date+0
		end if
		
    Response.Write("HYlogondate="&Request.Cookies("HYlogondate")&"&")
	Response.Write("HYvisitCount="&Request.Cookies("HYvisitCount")&"&")
	Response.Write("HYsex="&Request.Cookies("HYsex")&"&")
	Response.Write("HYhome="&Request.Cookies("HYhome")&"&")
	Response.Write("HYhomeRadem="&Request.Cookies("HYhomeRadem")&"&")
	Response.Write("HYQQ="&Request.Cookies("HYQQ")&"&")
	Response.Write("HYzhuchedate="&Request.Cookies("HYzhuchedate")&"&")
	Response.Write("HYip="&Request.Cookies("HYip")&"&")
	Response.Write("HYtopic="&Request.Cookies("HYtopic")&"&")
	Response.Write("HYemail="&Request.Cookies("HYemail")&"&")
	Response.Write("diary_title="&Request.Cookies("diary_title")&"&")
	Response.Write("diary_birthday="&Request.Cookies("diary_birthday")&"&")
	Response.Write("diary_foreword="&Request.Cookies("diary_foreword")&"&")
	Response.Write("diary_counter="&Request.Cookies("diary_counter")&"&")
	Response.Write("HYquanXian="&Request.Cookies("HYquanXian")&"&")
	Response.Write("logonIn=1&")
	session("HYname")=HY
    Response.End()
  else
  '没有登录
    set rs=server.CreateObject("ADODB.Recordset")
    SQL="select * from HuiYuan where HYname='"&HY&"' and HYpwd='"&HYpwd&"'"
    rs.open SQL,conn,2,3
      if not rs.eof then
	    set rsDiary=server.CreateObject("ADODB.RecordSet")
		rsDiarySQL="select * from Diary where HYname='"&HY&"'"
		rsDiary.open rsDiarySQL,conn,1,1		
        
		'发送变量到flash
		Response.Write("id="&rs("id")&"&")
		Response.Write("HYname="&rs("HYname")&"&")'会员名
		Response.Write("HYpwd="&rs("HYpwd")&"&")'密码
        Response.Write("HYlogondate="&rs("HYlogondate")&"&") '上次访问时间		
		Response.Write("HYvisitCount="&rs("HYvisitCount")&"&")'已访问站点次数
		Response.Write("HYsex="&rs("HYsex")&"&")'性别
		
		Response.Write("HYhome="&rs("HYhome")&"&")
		Response.Write("HYhomeRadem="&rs("HYhomeRadem")&"&")
		
		Response.Write("HYQQ="&rs("HYQQ")&"&")'QQ
		Response.Write("HYzhuchedate="&rs("HYzhuchedate")&"&")'注册时间
		Response.Write("HYip="&rs("HYip")&"&")'IP地址
		'Response.Write("HYtopic="&rs("HYtopic")&"&")'发表文章数
		Response.Write("HYemail="&rs("HYemail")&"&")'E-mail
		Response.Write("HYclass="&rs("HYclass")&"&")'积分
		Response.Write("diary_title="&rs("diary_title")&"&")'日记本名称
		Response.Write("diary_birthday="&rs("diary_birthday")&"&")'生日
		Response.Write("diary_foreword="&rs("diary_foreword")&"&")'日记本序言
		diaryCount=rsDiary.Recordcount
		if diaryCount="0" then
		  Response.Write("diary_counter=你还没有写日记！&")'日记本总数
		else
		  Response.Write("diary_counter="&diaryCount&"&")'日记本总数
		end if
		Response.Write("HYquanXian="&rs("HYquanXian")&"&")'是否管理员
				
		rs("HYlogondate")=now() '最后一次登录时间更新	
		rs("HYvisitCount")=rs("HYvisitCount")+1 '已访问站点次数更新	
	    rs.update				
		
		'写入session		
		session("HYname")=HY
		if rs("HYquanXian") = 1 then 
		  session("type")="1"
		else
		  session("type")="0"
		end if
		'写入cookies		
		Response.Cookies("HYnameCookies")=rs("HYname")
		Response.Cookies("HYpwd")=rs("HYpwd")
		if auto=1 then 
		'写入cookies时间  
		  '自动登录防止刷新
		  Response.Cookies("auto")="true"
		  Response.Cookies("HYnameCookies").Expires=Date+365
		  Response.Cookies("HYpwd").Expires=Date+365 
		else
		  Response.Cookies("auto")="false"
		  Response.Cookies("HYnameCookies").Expires=Date+0
		  Response.Cookies("HYpwd").Expires=Date+0
		end if
		
        Response.Cookies("logonIn")="true"
		Response.Cookies("id")=rs("id")'会员名称
	    Response.Cookies("HYname")=rs("HYname")'会员名称
		Response.Cookies("HYpwd")=rs("HYpwd")'会员密码
	    Response.Cookies("HYlogondate")=rs("HYlogondate")'上次登录时间
		Response.Cookies("HYvisitCount")=rs("HYvisitCount")'已访问站点次数
		Response.Cookies("HYsex")=rs("HYsex")'性别
		
		Response.Cookies("HYhome")=rs("HYhome")
		Response.Cookies("HYhomeRadem")=rs("HYhomeRadem")
		
		Response.Cookies("HYQQ")=rs("HYQQ")'QQ
		Response.Cookies("HYzhuchedate")=rs("HYzhuchedate")'注册时间
		Response.Cookies("HYip")=rs("HYip")'IP地址
		'Response.Cookies("HYtopic")=rs("HYtopic")'发表文章数
		Response.Cookies("HYemail")=rs("HYemail")'E-mail
		Response.Cookies("diary_title")=rs("diary_title")
		Response.Cookies("diary_birthday")=rs("diary_birthday")
		Response.Cookies("diary_foreword")=rs("diary_foreword")	
		Response.Cookies("diary_counter")=rsDiary.Recordcount
		Response.Cookies("HYquanXian")=rs("HYquanXian")	
		Response.Cookies("xuaXing")="false"  '防止退出后刷新			
		
    	rs.close
		
		rsDiary.close
        set rsDiary=Nothing	
		Response.Write("logonIn=1&")'登录成功
        Response.End()
      else
	    '用户名和密码错误
	    Response.Write("logonIn=0&")
      end if
  end if
  rs.close
  set rs=Nothing
  CloseDataConn
end if

%>