<%
'**************************************
'* 最后更新 2009-7-9 by 56770.kingdge 
'* Copyright www.56770.com     
'**************************************
Dim user_id,sql,pass1,pass2,user_name,user_mail,user_tel,user_postalcode,user_adds,ck_verifycode

If request("do") = "user_id" Then 
		
        user_id=safereplace(request("user_id"))
        if user_id <> "" Then
				If LCase(user_id) = "admin" Then 
						Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(64) &"</font>")
				Else 
						'-----------------------------------------------------------------
						'系统整合
						'-----------------------------------------------------------------
						Dim API_LEBI,API_SaveCookie,SysKey
						If API_Enable Then
							Set API_LEBI = New API_Conformity
							API_LEBI.NodeValue "action","checkname",0,False
							API_LEBI.NodeValue "username",user_id,1,False
							Md5OLD = 1
							SysKey = Md5(API_LEBI.XmlNode("username") & API_ConformKey)
							Md5OLD = 0
							API_LEBI.NodeValue "syskey",SysKey,0,False
							API_LEBI.SendHttpData
							If API_LEBI.Status = "1" Then
								Response.Write "<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& API_LEBI.Message &"</font>"
								Response.End 
							End If
							Set API_LEBI = Nothing
						End If
						'-----------------------------------------------------------------
						sql = "SELECT user_id FROM [Lebi_USER] where user_id= '" & user_id & "'"
						set Rs = conn.execute(sql)
						if not rs.eof Then
								Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(64) &"</font>")
						Else
								If Len(user_id)>20 Then
										Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(57) &"</font>")
								Else
										Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
								End If 
						end if
						rs.Close : set rs=Nothing
						connclose()
				End If 
        Else
	            Write_Lebi_Eshop(Lebi_user(56))
        end If
End If 

If request("do") = "ps1" Then 
        pass1=Safereplace(trim(request("ps1")))
		If pass1="" Or Len(pass1)<6 Or Len(pass1)>16 Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(162) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "pass" Then 
        pass1=Safereplace(trim(request("ps1")))
        pass2=Safereplace(trim(request("ps2")))
		If pass1 <> pass2 Then 
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(58) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "user_name" Then 
        user_name=Safereplace(trim(request("user_name")))
		If Len(user_name)<2 Or Len(user_name)>20 Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(59) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "user_mail" Then 
        user_mail=Safereplace(trim(request("user_mail")))
		If IsValidEmail(user_mail)=false Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(61) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "user_tel" Then 
        user_tel=Safereplace(trim(request("user_tel")))
		If Len(user_tel)<6 Or Len(user_tel)>50 Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(60) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "user_postalcode" Then 
        user_postalcode=Safereplace(trim(request("user_postalcode")))
		If Len(user_postalcode)>7 Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(62) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "user_adds" Then 
        user_adds=Safereplace(trim(request("user_adds")))
		If Len(user_adds)<3 Or Len(user_adds)>50 Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_user(63) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

If request("do") = "ck_verifycode" Then 
        ck_verifycode=Safereplace(trim(request("ck_verifycode")))
		If ck_verifycode <> cstr(Session("verifycode")) Then
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/err.gif"" align=""absmiddle""> <font color=red>"& Lebi_book(18) &"</font>")
		Else
	            Write_Lebi_Eshop("<img src="""&Eshop_Url&"images/suc.gif"" align=""absmiddle"">")
		End If 
End If 

%>
