<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'**************************************
'* 最后更新 2010-04-17 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
include "lang/"& LangFilePath &"/lang_user.inc"
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
						Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(4) &"</font>")
				Else
						sql = "SELECT user_id FROM [Lebi_USER] where user_id= '" & user_id & "'"
						set Rs = conn.execute(sql)
						if not rs.eof Then
								Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(4) &"</font>")
						Else
								If Len(user_id)<2 Or Len(user_id)>20 Then
										Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(78) &"</font>")
								Else
										Response.Write("<img src=""images/succes.gif"" align=""absmiddle"">")
								End If
						end if
						rs.Close : set rs=Nothing
				End If
        Else
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(16) &"</font>")
        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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(80) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(82) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(83) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(147) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(148) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(149) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(150) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.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
	            Response.Write("<img src=""images/error.gif"" align=""absmiddle""> <font color=red>"& Lang_User(151) &"</font>")
		Else
	            Response.Write("<img src=""images/succes.gif"" align=""absmiddle"">")
		End If
End If
%>