save.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!-- #include file="inc/email.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/md5.asp"-->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: save.asp
'Version:2.0
'UpdateTime: 2004-10-4 18:02:42
'Script Written by www.aspease.com 
'=========================================================
uname=rst("username")
pwd=rst("password")
repwd=rst("password2")
email=rst("email")
prov=rst("TPL_prov")
city=rst("TPL_city")
stats=easeregstats2
call header()
call activeonline()
If Len(Trim(UName)) = 0 Then
    	err_msg = err_msg & ErrStr(easeregusername)
End If
If Len(Trim(pwd)) = 0 Then
    	err_msg = err_msg & ErrStr(easeregpwd)
End If
If Len(Trim(repwd)) = 0 Then
    	err_msg = err_msg & ErrStr(easeregrepwd)
End If
If pwd <> repwd Then
    	err_msg = err_msg & easeregnotsamepwd & "<BR>"
End If
If Len(Trim(email)) = 0 Then
    	err_msg = err_msg & ErrStr(easeregemail)
End If
If prov = "请选择省份" Then
    	err_msg = err_msg & ErrStr(easeregstate)
End If	
'dim chks,bwords
if not(isnull(webforbidchar) or isnull(uname)) then
chks=false
		bwords = split(webforbidchar, ",")
		for i=0 to ubound(bwords)
		if instr(uname,bwords(i))>0 then
			chks=true			
		end if
		next
	if chks then
		err_msg = err_msg & "<B>"& easeregforbidchar &"</B><BR>"
	end if
end if
if err_msg="" then
	if not chkname then
		err_msg=err_msg&"<B>"&easeregusername&easeregexist&easeregusername&"</B><br>"	
	end if
	if not chkemail then
		err_msg=err_msg&"<B>"&easeregemail&easeregexist&easeregemail&"</B><br>"	
	end if
end if

if err_msg<>"" then
aspease_err
else
adduser
end if
call footer()

sub adduser
Randomize 
chkno=int((rnd+1)*1000)
sql="INSERT INTO [users](regUsername,regPassword,regEmail,regCity,regState,regChkno" & _	
	") VALUES ("&SQLSTR(uname)&","&sqlstr(md5(pwd))&","&sqlstr(email)&","&sqlstr(prov)&"," & _
	""&sqlstr(city)&","&sqlstr(chkno)&")"
	conn.execute(sql)
email=trim(rst("email"))
'begin send email

sSubject = GetFirstLine(sBody)
ssendname=webname
select case fval(websetting(4))
case 0
sendmsg=easeregemailsetno
case 1
call jmail(email,sSubject,sbody)
sendmsg=easeregemailsetyes
case 2
call Cdonts(email,sSubject,sbody)
sendmsg=easeregemailsetyes
case 3
call Aspemail(email,sSubject,sbody)
sendmsg=easeregemailsetyes
case else
sendmsg=easeregemailsetno
end select
response.write sendmsg	

end sub

function chkname
'	dim schkname
	schkname=false
	sql="SELECT COUNT(*) as Total FROM users where regusername="&sqlstr(uname)&""
	set rs=conn.execute(sql)
	if RS("Total") > 0 then
	schkname=false
	else
	schkname=true
	end if	
	rs.close
	set rs=nothing	
chkname=schkname
end function
function chkemail
chkemail=false
sql="SELECT COUNT(*) AS TTAL FROM USERS WHERE REGEMAIL="&sqlstr(email)&""
	set rs=conn.execute(sql)
	if rs("ttal")>0 then
		chkemail=false
	else
		chkemail=true	
	end if
	rs.close
	set rs=nothing
end function
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: save.asp
'Version:2.0
'UpdateTime: 2004-10-4 18:02:42
'Script Written by www.aspease.com 
'=========================================================%>