<%
on error resume next
%>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/md5.asp" -->
 <%
 	conn.open constr
'''''''''''''表单处理
'''''''''''''检查用户名可否使用
'''''''''''''杂项处理
'''''''''''''写入数据库
'''''''''''''发信通知 

'''''''''''''表单处理
u_nme=trim(SafeRequestform("u_nme"))
u_pss=trim(SafeRequestform("u_pss"))
u_ctt_cn=trim(SafeRequestform("u_ctt_cn"))
u_copnme_cn=trim(SafeRequestform("u_copnme_cn"))
u_adr_cn=trim(SafeRequestform("u_adr_cn"))
u_prv_cn=trim(SafeRequestform("u_prv_cn"))
u_cde=trim(SafeRequestform("u_cde"))
u_tel=trim(SafeRequestform("u_tel"))
u_fax=trim(SafeRequestform("u_fax"))
u_eml=trim(SafeRequestform("u_eml"))
u_pssold=u_pss
recs=Chk_usrpss(u_nme,"登录名称",4,16)
recs=Chk_usrpss(u_pss,"登录密码",6,16)
if  u_copnme_cn="" then
    call errorpage(-2,"对不起，请填写好单位名称！")
	
end if
if  u_ctt_cn="" then
    call errorpage(-2,"对不起，请填写好联系人姓名！")
	
end if
if  u_prv_cn="" then
    call errorpage(-2,"对不起，请选择所属省份！")
	
end if
if  not chk_phone(u_tel) then
    call errorpage(-2,"对不起，请填写好联系电话！")
	
end if
if  not chk_email(u_eml) then
    call errorpage(-2,"对不起，请填写好电子邮件！")
	
end if
if  len(u_cde)<>6 then
    call errorpage(-2,"对不起，请填写好邮政编码！")
end if
if pl_emlsgl="1" then
query="select * from memlst where u_eml='"&u_eml&"'"
rs.open query,conn,1,1
if not rs.eof then
    call errorpage(-2,"对不起，系统已经存在该电子信箱，每一电子信箱仅能申请一个会员号！")
end if
rs.close
end if
u_pss=md5(u_pss)
'''''''''''''检查用户名可否使用
	query= "select * from disusr"
	rs.open query,conn,1,1
	while not rs.eof
	If rs("u_tpe")=1 Then
	recs=(lcase(u_nme)=trim(lcase(rs("u_nme"))))
	    if recs then
            call errorpage(-2,"对不起，此用户名已被禁止注册！")
			response.end
		end if
	else
	recs=instr(lcase(u_nme),trim(lcase(rs("u_nme"))))
	    if recs>0 then
            call errorpage(-2,"对不起，此用户名已被禁止注册！")
			response.end
		end if
	end if
	rs.movenext
	wend
	rs.close

	query= "select * from memlst where u_nme='"& u_nme&"'" 
	rs.open query,conn,1,1
	If rs.recordcount<>0 Then
    call errorpage(-2,"对不起，此用户已被注册，请选择其他的用户名！")
	
	end if
	rs.close
	
'''''''''''''杂项处理
 query="select * from pltcfg"
     rs.open query,conn,1,1
	 if rs.recordcount<>1 then
    call errorpage(-2,"对不起，系统错误！")
	 else
	 rootname=trim(rs("pl_usrnme"))
	 defaultprice=trim(rs("pl_dftprc"))
	 pl_dftpwr=trim(rs("pl_dftpwr"))
	 end if
	 rs.close	
     theip=request.servervariables("remote_addr")	 
'''''''''''''写入数据库
'''''''''''''''''''
if pl_newifcfm="1" then
u_lck=1
else
u_lck=0
end if
query="select * from myarea where a_nme like '%"&u_prv_cn &"%'"
rs.open query,conn,1,1
if rs.eof then
u_myare=0
else
u_myare=rs("a_grpid")
end if
rs.close
    query="insert into memlst(u_rotnme,u_myare,u_are,u_tstcnt,u_nme,u_pss,u_prc,u_lgncnt,u_lck,u_sys,u_pwr,u_mnybrw,u_mnylck,u_mnyrmn,u_mnyavl,u_mnyusd,u_mnytmp,u_mnyprz,u_mnyall,u_mnyinv,u_eml,u_addtme,u_lsttme,u_addIp,u_lstip) values('',"&u_myare&",'','"&pl_tstcnt&"','"&u_nme&"','"&u_pss&"',"&defaultprice&",0,"&u_lck&",1,"&pl_dftpwr&",0,0,0,0,0,0,0,0,0,'"&u_eml&"',getdate(),getdate(),'"&theip&"','"&theip&"')"
	conn.execute query,1,1
    query="insert into memdtl(u_copnme_cn,u_prv_cn,u_adr_cn,u_cde,u_fax,u_nme,u_tel,u_eml,u_ctt_cn,u_hstip,u_ftpip,u_sqlip,u_emlip) values('"&u_copnme_cn&"','"&u_prv_cn&"','"&u_adr_cn&"','"&u_cde&"','"&u_fax&"','"&u_nme&"','"&u_tel&"','"&u_eml&"','"&u_ctt_cn&"','','','','')"
	conn.execute query,1,1
	set myerrors=conn.errors
if(myerrors.count=0)then
%>

<!--#include file=usr_snd.asp-->
<%
if pl_newifcfm="1" then
	call infpage( "<font style='font-size:12px' face='arial' color=#000000>欢迎您注册成为"&com_comname&"的会员用户！<br><br>您的登录帐号及密码已经发往您的信箱，以备查用("&ifsendwrd&")。<br>请登录您的信箱激活您的会员号！<br>如果您不能收到本站的邮件，请查看信箱<b>" & email & "</b> 是否正常。<br>如果该问题仍然持续请与我们联系。<BR><BR><font color=red>最后，感谢您对本站的支持，希望本站的服务能给您带来满意！</font>","/")
else
	call infpage( "<font style='font-size:12px' face='arial' color=#000000>欢迎您注册成为"&com_comname&"的会员用户！<br><br>您的登录帐号及密码已经发往您的信箱，以备查用("&ifsendwrd&")。<br>如果您不能收到本站的邮件，请查看信箱<b>" & email & "</b> 是否正常。<br>如果该问题仍然持续请与我们联系。<BR><BR><font color=red>最后，感谢您对本站的支持，希望本站的服务能给您带来满意！</font>","/")
end if	
else
	call errorpage(-2,"对不起，异常错误！")
	
end if
conn.close
%>

