register_save.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

<%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：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  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
%>