<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="common/admin_res_Col_inc.asp"-->

<%
nowtit="系所"
Login_Judge
powerid=121
Dim Col
Dim Cols(0)
Cols(0)="系所"
Dim Colslm(0)
Colslm(0)="Col"
Dim Col_id,nowyear
action=che(request("action"))
id=che(request("id"))

If action="list" Then
	Ispower powerid & "1"
	const MaxPerPage=15
	restit nowtit,infotit(0)
	nowmenu
	listinfos
ElseIf action="add" Then
	Ispower powerid & "2"
	restit nowtit,infotit(1)
	nowmenu
	addinfos
ElseIf action="save" Then
	Ispower powerid & "2"
	jstable
	If Col = "" Then errormsg "參數錯誤！"
	Dim class_check
	sql=Sqlinfo("id","res_Col"," Col = '"&Col&"'","","","")
	class_check = connopen(sql)
	If isArray(class_check) Then  errormsg "該 <B>"&Col&"</B> 年屆已存在!"
	sql=Sqlinfo("*","res_Col","id=0","","","")
	set rs=server.createobject("adodb.recordset")
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	sqltable("add")
	rs.Update
	rs.close
	rightmsg "?action=list&chk=0&Col_ids="&Col_id&"&Cols=&&nowyear="&nowyear,""
ElseIf action="edit" Then
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	editinfos
ElseIf action="mod" Then
	Ispower powerid & "3"
	jstable
	If Col = "" Then errormsg "參數錯誤！"
	sql=Sqlinfo("*","res_Col","id="&id,"","","")
	set rs=server.createobject("adodb.recordset")
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
	sqltable("mod")
	rs.Update
	Else
	errormsg "參數錯誤"
	End If
	rs.close
	rightmsg "?action=list&chk=0&Col_ids="&Col_id&"&Cols=&nowyear="&nowyear,""
ElseIf action="del" Then
	Ispower powerid & "4"
	if id="" then errormsg "參數錯誤！"
	set dels=conn.execute("delete from res_Col where id in ("&id&")")
	set dels=Nothing 
	rightmsg "admin_res_Col.asp?action=list&chk=0&Col_ids="&Col_id&"&Cols=&nowyear="&nowyear,""
End If

%>
<!--#include file="admin_page_footer.asp"-->