<!--#include file="config.inc.asp"-->
<%
action=Request("action")

IF action="reg" or action="regf_a" Then
	u=Replace(Request("u"),"'","")
	p=Replace(Request("p"),"'","")
	m=Replace(Request("m"),"'","")
	register=uc_user_register(u,p,m,"","")
	Response.Write register
ElseIF action="uc_user_synlogin" Then '同步登陆
	uid=Replace(Request("uid"),"'","")
	p=Replace(Request("p"),"'","")
	str=uc_user_synlogin(uid,p)
	Response.Write str
ElseIF action="uc_get_user" Then '获取id
	u=Replace(Request("u"),"'","")
	p=Replace(Request("p"),"'","")
	str1=uc_get_user(u,0)
	str=uc_user_synlogin(str1(0),p)
	Response.Write str
ElseIF action="uc_user_login" Then '同步登陆2
	u=Replace(Request("u"),"'","")
	p=Replace(Request("p"),"'","")
	login=uc_user_login(u,p,"0","0","","")	
	str=""
	If login(0) > "0" Then
		str=str&"{ok}||"&login(0)&"||"&login(1)&"||"&login(2)&"||"&login(3)
		'response.write "用户ID："&login(0)&"<br>"
		'response.write "用户名："&login(1)&"<br>"
		'response.write "用户密码："&login(2)&"<br>"
		'response.write "用户邮箱："&login(3)&"<br>"
		'response.write "是否重命名："&login(4)&"<br>"
	ElseIf login(0) = "-1" Then
		str=str&"{error}"
		'response.write "用户不存在，或者被删除"
	ElseIf login(0) = "-2" Then
		str=str&"{error}"
		'response.write "密码错"
	ElseIf login(0) = "-3" Then
		str=str&"{error}"
		'response.write "安全提问错"
	ElseIf login(0) = "-4" Then
		str=str&"{error}"
		'response.write "用户或密码为空"
	Else
		str=str&"{error}"
		'response.write "未定义"
	End If
	Response.Write str
End IF
%>