<%Server.ScriptTimeOut=5000%>
<!--#include file="../Common/Inc_DatConn.asp"-->
<!--#include file="../Common/Inc_Function.asp"-->
<!--#include file="../Common/UpLoadClass.asp"-->
<%
'┌─  風云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統(tǒng)開發(fā)，網站制作，提供高質量的網絡產品、技術和服務！│
'│                                                                 │
'│【版權聲明】                                                     │
'│                                                                 │
'│     本程序版權歸坐看風云所有，未經授權擅自修改、復制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內的全面制裁。對非法使用此程序所造成的一切后果本人概不負責!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
'建立上傳對象
dim request2
set request2=New UpLoadClass
request2.TotalSize=reguppic
request2.MaxSize  =reguppic
'允許上傳的格式
request2.FileType = "jpg/gif/bmp/png"
'上傳路徑
request2.SavePath= "../Upload/reg/"
request2.open
Dim strMember
			Dim rdsMember
			Dim sqlMember
			Dim rdsCount
			
			strMember =changechr(request2.Form("Member"))
				
			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(Request2.Form("Homepage"),"'","")," ",""),"\","/"),"。",".")
			if InStr(zy,"http://")=0 then
			zys="http://"
			zy=zys&zy
			end if
			pic=request2.Form("pic")
			'***************************判斷上傳
	if request2.Error=4 then
response.write"<SCRIPT language=JavaScript>alert('圖片大小超過限制，上傳失敗！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
	end if
	if request2.Error=2 then
response.write"<SCRIPT language=JavaScript>alert('類型有誤！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request2.Error<>2 and request2.Error<>1 and request2.Error<>3 and request2.Error<>4 then
				rdsMember.AddNew
				clrq=changechr(Request2.Form("clrq"))
				if clrq="" then
				clrq=date()
				end if
				rdsMember("Member") = strMember
				rdsMember("MemberType") =changechr(request2.Form("sMemberType"))
				rdsMember("RealName") = changechr(Request2.Form("RealName"))
				rdsMember("CompanyName") =changechr(request2.Form("CompanyName"))
				rdsMember("ContactMan") = changechr(Request2.Form("ContactMan"))
				rdsMember("Password") = Request2.Form("Password")
				rdsMember("Tel") = changechr(Request2.Form("Tel"))
				rdsMember("Fax") = changechr(Request2.Form("Fax"))
				rdsMember("Homepage") =zy
				rdsMember("Email") = changechr(Request2.Form("Email"))
				rdsMember("qq") = changechr(Request2.Form("qq"))
				rdsMember("Add") = changechr(Request2.Form("Add"))
				rdsMember("Postalcode") = changechr(Request2.Form("Postalcode"))
				'rdsMember("State") = 0
				rdsMember("IP") =changechr(Request2.Form("sip"))
				rdsMember("CreateTime") = now()
				rdsMember("UpdateTime") = now()
				rdsMember("gg") =dvHTMLEncode(Request2.Form("gg"))
				rdsMember("js") =dvHTMLEncode(Request2.Form("js"))
				rdsMember("dl") = changechr(Request2.Form("BigClassName"))
				rdsMember("xl") = changechr(Request2.Form("SmallClassName"))
				rdsMember("qyxz") = changechr(Request2.Form("qyxz"))
				rdsMember("dq") = changechr(Request2.Form("dq"))
				rdsMember("clrq") = clrq
				rdsMember("zczj") = RtnReplaceInt(Request2.Form("zczj"),0)
				rdsMember("jylx") = changechr(Request2.Form("jylx"))
				rdsMember("mb") = changechr(Request2.Form("mb"))
				rdsMember.Update
end if
				rdsMember.Close
				set rdsMember = nothing
Response.write("<script>alert(""注冊成功，請在首頁登錄！"");location.href=""../index.asp"";</script>")
Response.end
end if
%>