login.asp

功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="md5.asp" -->
<!-- #include file="../diary_folder.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=trim(Request("HYname"))
HYpwd=trim(Request("HYpwd"))
HYpwd=md5(HYpwd)
HYsex=Request("HYsex")
HYhome=Request("HYhome")
HYhomeRadem=Request("HYhomeRadem")
HYQQ=Request("HYQQ")
HYemail=Request("HYemail")
HYip=Request.ServerVariables("REMOTE_ADDR")
diary_title=Request("diary_title")
diary_birthday=Request("diary_birthday")
diary_foreword=Request("diary_foreword")
  set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan where HYname='"&HYname&"'"
  rs.open SQL,conn,1,1
  if rs.eof or rs.bof then
    rs.close
    conn.execute "INSERT INTO HuiYuan (HYname, HYpwd, HYsex, HYhome, HYhomeRadem, HYQQ, HYip ,HYemail,diary_title,diary_birthday,diary_foreword) VALUES ('"&HYname&"','"&HYpwd&"','"&HYsex&"','"&HYhome&"','"&HYhomeRadem&"','"&HYQQ&"','"&HYip&"','"&HYemail&"','"&diary_title&"','"&diary_birthday&"','"&diary_foreword&"')"
   
	  '发送悄悄话
	  set rsQQH=server.CreateObject("ADODB.Recordset")
        SQLQQH="select * from QQH"
      rsQQH.open SQLQQH,conn,2,3
      rsQQH.addnew
        rsQQH("HYname")="admin"
	    rsQQH("QQH_HYname")=HYname
	    rsQQH("title")="您好！欢迎光临" & diary_site_name & "。"
	    rsQQH("QQHbody")="    欢迎来到" & diary_site_name & "网，希望这个Flash日记本能帮您记下美好的过去。    您不必担心您写的日记会被别人看到，只要您写日记时选择不公开就OK了。    如果有什么疑问请点击回复，发送悄悄话给我，最后祝您在此玩得开心。    如果你觉得这个Flash日记本不错，请告诉你QQ上的朋友，谢谢！"
	  rsQQH.update
	  rsQQH.close
	  set rsQQH = Nothing
	  
	 SQL="select * from HuiYuan where HYname='"&HYname&"'"
     rs.open SQL,conn,1,1
	'发送到flash
	 Response.Write("login=1&")
	 Response.Write("id="&rs("id")&"&")
	 
	rs.close
    set rs=Nothing
    CloseDataConn()
	Response.End()
  else
    Response.Write("login=0")
	rs.close
    set rs=Nothing
  end if
%>