<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<!-- #include file="include/checkhy.asp" -->
<%
HyNumber = trim(request("HyNumber"))
HyPassword=trim(request("HyPassword"))
HyPassword2=trim(request("HyPassword2"))
hyname = trim(request("hyname"))
HySex=trim(request("HySex"))
HyAge=trim(request("HyAge"))
HyCardNo = trim(request("HyCardNo"))
HyTel=trim(request("HyTel"))
HyMobile = trim(request("HyMobile"))
HyMail= trim(request("HyMail"))
HyQQMSN=trim(request("HyQQMSN"))
HyAddress = trim(request("HyAddress"))
HyZipCode=trim(request("HyZipCode"))
HyOpenBank = trim(request("HyOpenBank"))
HyOpenBankNo = trim(request("HyOpenBankNo"))
HyOpenBankName=trim(request("HyOpenBankName"))
HyProduct=trim(request("HyProduct"))

HyMemo = trim(request("HyMemo"))

id=Request("id")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="include/e1.css" type="text/css">
</HEAD>
<BODY>
-------------------------修改会员中...............<br>
<%

set rs=server.CreateObject("adodb.recordset")
'修改基本资料
sql = "update hy set HyPassword1 = '" & HyPassword & "',HyPassword2 = '" & HyPassword2 & "',HyName = '" & HyName & "',HySex = '" & HySex & "',HyAge = '" & HyAge & "',HyCardNo = '"
sql = sql & HyCardNo & "',HyTel='"& HyTel & "',HyMobile='"& HyMobile & "',HyMail='"& HyMail & "',HyQQMSN='" 
sql = sql & HyQQMSN & "',HyAddress='" & HyAddress & "',HyZipCode='" & HyZipCode & "',HyProduct='" & HyProduct
sql = sql & "',HyMemo='" & HyMemo &"' where id =" & id

rs.Open sql,conn
set rs=nothing
set rs=server.CreateObject("adodb.recordset")

sql = "update hyclub set HyPassword = '" & HyPassword& "' ,HyPassword2 = '" & HyPassword2 & "' where Hyid =" & id
rs.Open sql,conn
href="hyCustview.asp?id=" & id

%>
<br>------------------------<font color=red>会员修改成功!</font><br>
<script language="javascript">
	window.location.href="<% =href%>"
	//window.parent.frames(0).location.reload();
</script>
</BODY>
</HTML>