<!--#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"))

'接收表單數據
DepartName=request("DepartName")
DepartCode=request("DepartCode")
'判斷是否有此部門編碼的主管部門編碼
topdepartcode=left(DepartCode,3)
set rst3=server.CreateObject ("ADODB.recordset")
StrSQL="select 用戶編碼 from XT_TC_user where 用戶編碼='"&TopDepartCode&"'"
rst3.CursorType =3
rst3.CursorLocation =3
rst3.LockType =2
rst3.Open strsql,strconn
if rst3.RecordCount=0 then
	Response.Write "這個部門編碼的主管部門編碼不存在，<a href=Depart_Edit.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">請重新注冊!</a> "
	rst3.Close 
	set rst3=nothing
	Response.End 
end if


'處理修改頁面部分
if edit="edit" then
DepartCode=request("DepartCode")

strsql="update XT_TC_Depart set 部門名稱="+"'"+DepartName+"'"+" where 部門編碼="+"'"+DepartCode+"'"
		conn.Execute strsql,1
Response.Write DepartName&"已修改成功!<br>部門編碼為:"&DepartCode
Response.Write "<a href=Depart_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
else

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

%>
<%
'用戶信息寫入數據庫
StrSQL="insert into XT_TC_Depart(部門編碼,部門名稱) values ('"&DepartCode&"','"&DepartName&"')"
conn.Execute StrSQL
conn.close
set conn=nothing

Response.Write DepartName&"已注冊成功!<br>部門編碼為:"&DepartCode
Response.Write "<a href=Depart_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>