<%Server.ScriptTimeOut=5000%>
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
			strMember =changechr(request.Form("Member"))
			strpassword=request.Form("Password")
if strMember="" or strpassword="" then
Response.write("<script>alert(""出错，用户名或密码不能为空！"");javascript:history.go(-1);</script>")
Response.end
end if		
			set rdsMember = Server.CreateObject("ADODB.Recordset")
			sqlMember = "Select * From Dat_Member Where Member = '"& strMember &"'"
			rdsMember.Open sqlMember,Conn,1,3
			if not rdsMember.EOF then
				Response.Write"<SCRIPT language=JavaScript>alert('此会员帐号已被他人注册，请选用其它用户名注册！');"
				Response.Write"window.location.href='Javascript:history.back()'</SCRIPT>"
			else
			zy=replace(replace(replace(replace(request.Form("Homepage"),"'","")," ",""),"\","/"),"。",".")
			if InStr(zy,"http://")=0 then
			zys="http://"
			zy=zys&zy
			end if
				rdsMember.AddNew
				clrq=changechr(request.Form("clrq"))
				if clrq="" then
				clrq=date()
				end if
				rdsMember("Member") = strMember
				rdsMember("MemberType") =changechr(request.Form("sMemberType"))
				rdsMember("RealName") = changechr(request.Form("RealName"))
				rdsMember("CompanyName") =changechr(request.Form("CompanyName"))
				rdsMember("ContactMan") = changechr(request.Form("ContactMan"))
				rdsMember("Password") =strpassword
				rdsMember("Tel") = changechr(request.Form("Tel"))
				rdsMember("Fax") = changechr(request.Form("Fax"))
				rdsMember("Homepage") =zy
				rdsMember("Email") = changechr(request.Form("Email"))
				rdsMember("qq") = changechr(request.Form("qq"))
				rdsMember("Add") = changechr(request.Form("Add"))
				rdsMember("Postalcode") = changechr(request.Form("Postalcode"))
				'rdsMember("State") = 0
				rdsMember("IP") =changechr(request.Form("sip"))
				rdsMember("CreateTime") = now()
				rdsMember("UpdateTime") = now()
				rdsMember("gg") =dvHTMLEncode(request.Form("gg"))
				rdsMember("js") =dvHTMLEncode(request.Form("js"))
				rdsMember("dl") = changechr(request.Form("BigClassName"))
				rdsMember("xl") = changechr(request.Form("SmallClassName"))
				rdsMember("qyxz") = changechr(request.Form("qyxz"))
				rdsMember("dq") = changechr(request.Form("dq"))
				rdsMember("clrq") = clrq
				rdsMember("zczj") = RtnReplaceInt(request.Form("zczj"),0)
				rdsMember("jylx") = changechr(request.Form("jylx"))
				rdsMember("mb") = changechr(request.Form("mb"))
				rdsMember.Update
				rdsMember.Close
				set rdsMember = nothing
Response.write("<script>alert(""注册成功，请在首页登录！"");location.href=""index.asp"";</script>")
Response.end
end if
%>