<!--#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_Cert_inc.asp"-->
<%
nowtit="證書類別"
Login_Judge
powerid=122
Dim name_id,typeinfo

action=che(request("action"))
id=che(request("id"))
name_id = che(request("name_id"))
Dim nows(1)
nows(0)="證書名稱"
nows(1)="類別名稱"
Dim nowlm(1)
nowlm(0)="name_id"
nowlm(1)="typeinfo"
Dim urlinfos
If name_id="" Or Not IsNumeric(name_id) Then name_id=0
If action="list" Then
	Ispower powerid & "1"
	const MaxPerPage=15
	restit nowtit,infotit(0)
	nowmenu
	type2_listinfos
ElseIf action="add" Then
	Ispower powerid & "2"
	restit nowtit,infotit(1)
	nowmenu
	type2_addinfos
ElseIf action="save" Then
	Ispower powerid & "2"
	type2_jstable
	isn name_id,"證書名稱",3
	isn typeinfo,"類別名稱",1

	sql=Sqlinfo("*","Cert_typeinfo","id=0","","","")
	set rs=server.createobject("adodb.recordset")
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	type2_sqltable "add" 
	rs.Update
	rs.close
	rightmsg "?action=list&name_id="&name_id,""
ElseIf action="edit" Then 
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	type2_editinfos
ElseIf action="mod" Then
	Ispower powerid & "3"
	type2_jstable
	isn name_id,"證書名稱",3
	isn typeinfo,"類別名稱",1
	sql=Sqlinfo("*","Cert_typeinfo","id="&id,"","","")
	set rs=server.createobject("adodb.recordset")
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		type2_sqltable "mod"
		rs.Update
	Else
		errormsg "參數錯誤"
	End If
	rs.close
	rightmsg "?action=list&name_id="&name_id,""

ElseIf action="del" Then
	Ispower powerid & "4"
	if id="" then errormsg "參數錯誤！"
	set dels=conn.execute("delete from link_info where id in ("&id&")")
	set dels=Nothing 
	rightmsg "?action=list&name_id="&name_id,""

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