update.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="md5.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=Request("HYname")
HYpwd=md5(Request("HYpwd"))
HYsex=Request("HYsex")
HYhome=Request("HYhome")
HYhomeRadem=Request("HYhomeRadem")
HYQQ=Request("HYQQ")
HYemail=Request("HYemail")
diary_title=Request("diary_title")
diary_birthday=Request("diary_birthday")
diary_foreword=Request("diary_foreword")
HYip=Request.ServerVariables("REMOTE_ADDR")

  set rs=server.CreateObject("ADODB.Recordset")
  SQL="select * from HuiYuan where HYname='"&HYname&"'"
  rs.open SQL,conn,2,3
  if not (rs.eof and rs.bof) then
	rs.update
    	rs("HYname")=HYname
	  if trim(Request("HYpwd")) <> "" then 
	     rs("HYpwd")=HYpwd
	  end if
	rs("HYsex")=HYsex
	rs("HYhome")=HYhome	
	rs("HYhomeRadem")=HYhomeRadem	
	rs("HYQQ")=HYQQ
	rs("HYip")=HYip
	rs("HYemail")=HYemail
	rs("diary_title")=diary_title
	rs("diary_birthday")=diary_birthday
	rs("diary_foreword")=diary_foreword
		
	rs.update
    Response.Write("updateOK=1")
	Response.End()
	rs.close
    set rs=Nothing
    CloseDataConn()
  else
    Response.Write("updateOK=0")
	rs.close
    set rs=Nothing
  end if
%>