<!--#include file="Common/inc_usercheck.asp"-->
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Config.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統開發，網站制作，提供高質量的網絡產品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%id=changechr(Request("id"))
	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") = replace(replace(replace(replace(Request.Form("Fax"),"'","’"),"<%","&lt;%"),"靠你","（臟話）"),"日你媽","（臟話）")
			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.Update
			edituser.Close
			set edituser = nothing
			
              response.write"<SCRIPT language=JavaScript>alert('恭喜你，編輯成功！');"
              response.write"javascript:window.close();</SCRIPT>"  
%>