<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<%
'response.Write(request.Form.Item)
sql=" Select c_UserID, v_LoginName, v_LNEncode, v_LoginPwd, v_IdentityCard, v_PwdQuestion, v_PwdAnswer "&_
	" From hxdf_user_login "&_
	" Where c_UserID like '"& request.form("UserID") &"'"
	'response.Write(sql)
set rs=server.CreateObject("adodb.recordset")
on error resume next
rs.Open sql,conn,1,3
	if not rs.eof then
	response.Write("用戶已經被注冊")
	response.Write("<input type='button' value='登陸系統' onclick='top.location.href=""../../chinese/index.asp""'>")
	response.End()
	else
	rs.addnew
rs("c_UserID")=	request.form("UserID")
rs("v_LoginName")=	request.form("UserName")
rs("v_LNEncode")=crack(request.form("UserName"))
rs("v_LoginPwd")=crack(request.form("PassWord"))
rs("v_IdentityCard")=request.form("IdentityCard")
rs("v_PwdQuestion")=request.form("PwdQuestion")
rs("v_PwdAnswer")=request.form("PwdAnswer")
rs.update
'sql=" INSERT INTO hxdf_user_login "&_
'	"      (c_UserID, v_LoginName, v_LNEncode, v_LoginPwd, v_IdentityCard, v_PwdQuestion, v_PwdAnswer) "&_

if err.number <> 0 then
	if err.number=-2147217900 then
	response.Write("用戶名已經存在!")
	response.End()
	else
	Response.Write(err.number)
	response.Write err.Description
	response.End()
	end if
	rs.Cancel
else
	response.Write ("用戶注冊成功！")
	response.Write("<input type='button' value='登陸系統' onclick='top.location.href=""../../chinese/index.asp""'>")
end if

end if
rs.close: set rs=nothing

%>