<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'接收傳來的變量
srtsql=Request.QueryString ("strsql")
edit=Request.QueryString ("edit")
page=Cstr(Request.QueryString ("page"))

'接收表單數據
TopDepartName=request("TopDepartName")
TopDepartCode=request("TopDepartCode")
TopDepartType=request("TopDepartType")
Password=request("Password")
Question=request("Question")
Answer=request("Answer")


'處理修改頁面部分
if edit="edit" then
strsql="update XT_TC_user set 用戶姓名='"+TopDepartName+"',主管部門類別="+"'"+TopDepartType+"'"+",密碼="+"'"+password+"'"+",查詢密碼問題="+"'"+question+"'"+",查詢密碼問題答案="+"'"+answer+"'"+",用戶編碼="+"'"+TopDepartCode+"'"+" where 用戶編碼="+"'"+topdepartCode+"'"
		conn.Execute strsql,1
Response.Write TopDepartName&"已修改成功!<br>用戶編碼為:"&TopDepartCode
Response.Write "<a href=TopDepart_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
Response.Write "  或者<a href=../index.asp>重新登錄</a>"
else

set rst2=server.CreateObject ("ADODB.recordset")
StrSQL="select 用戶編碼 from XT_TC_user where 用戶編碼='"&TopDepartCode&"'"
rst2.CursorType =3
rst2.CursorLocation =3
rst2.LockType =2
rst2.Open strsql,strconn
if not rst2.EOF then
	Response.Write "這個用戶編碼已經存在，<a href=TopDepart_Edit.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">請重新注冊!</a> "
	Response.End 
end if

%>
<%
'用戶信息寫入數據庫
StrSQL="insert into XT_TC_User(用戶編碼,用戶姓名,主管部門類別,密碼,查詢密碼問題,查詢密碼問題答案,性別,出生年份,部門編碼,職稱,學歷,職位,家庭電話,辦公電話,移動電話,傳真,Email,通訊地址,郵編,有效標志,用戶類型) values ('"&TopDepartcode&"','"&TopDepartName&"','"&TopDepartType&"','"&Password&"','"&Question&"','"&Answer&"','男','01,01,1901','','','','','','','','','','','','1','主管部門')"
conn.Execute StrSQL

'設置用戶角色為主管部門
StrSQL="insert into XT_TP_UserRole(角色編碼,用戶編碼) values ('2','"+TopDepartCode+"')"
conn.Execute StrSQL

conn.close
set conn=nothing

Response.Write TopDepartName&"已注冊成功!<br>用戶編碼為:"&TopDepartCode
Response.Write "<a href=TopDepart_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"

end if
%>
<script language="vbscript">
function back(i)
history.go(i)
end function
</script>