<!--#include file="Common/inc_usercheck.asp"-->
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
Server.ScriptTimeout=999
id=RtnReplaceInt(request.Form("id"),0)
	Dim edituser
            set edituser = Server.CreateObject("ADODB.Recordset")
			edituser.Open "Dat_Member Where MemberKey = "& id,Conn,3,3
			edituser("RealName") = changechr(request.Form("RealName"))
			edituser("CompanyName") = changechr(request.Form("CompanyName"))
			edituser("Password") = changechr(request.Form("Password"))
			edituser("Tel") = changechr(request.Form("Tel"))
			edituser("Fax") = changechr(request.Form("Fax"))
			edituser("ContactMan") = changechr(request.Form("ContactMan"))
			edituser("Homepage") = changechr(request.Form("Homepage"))
			edituser("Email") = changechr(request.Form("Email"))
			edituser("Postalcode") = changechr(request.Form("Postalcode"))
			edituser("Add") = changechr(request.Form("Add"))
			edituser("Homepage") = changechr(request.Form("Homepage"))
			edituser("Email") = changechr(request.Form("Email"))
			edituser("qq") = changechr(request.Form("qq"))
			edituser("gg") =dvHTMLEncode(request.Form("gg"))
			edituser("js") =dvHTMLEncode(request.Form("js"))
			edituser("dl") =changechr(request.Form("BigClassName"))
			edituser("xl") =changechr(request.Form("SmallClassName"))
			edituser("qyxz") =changechr(request.Form("qyxz"))
			edituser("dq") =changechr(request.Form("dq"))
			edituser("pic")=changechr(request.Form("pic"))
			clrq=changechr(request.Form("clrq"))
			if clrq<>"" then
			edituser("clrq") =clrq
			end if
			edituser("zczj") =RtnReplaceInt(request.Form("zczj"),0)
			edituser("jylx") =changechr(request.Form("jylx"))
			edituser("UpdateTime") = now()
			edituser("mb") =changechr(request.Form("mb"))
			edituser.Update
			edituser.Close
			set edituser = nothing
              response.write"<SCRIPT language=JavaScript>alert('¹§Ï²Äã£¬±à¼­³É¹¦£¡');"
              response.write"location.href=""index.asp"";</SCRIPT>"   
%>