<!--#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"-->
<SCRIPT src="../js/cert_date.js" type="text/javascript"></SCRIPT> 
<script src="inc/admin_cert.js" type="text/javascript"></script>
<%
Login_Judge
dimarr "tit"
nowtit="證書"
powerid=110
Dim c_no,c_type,IdentityNO,c_time,c_typeinfo
Dim Names,c_nos,IdentityNOs,c_types
action=che(request("action"))
id=che(request("id"))
Dim nows(4)
nows(0)="身份證"
nows(1)="證書編號"
nows(2)="證書名稱"
nows(3)="證書類別"
nows(4)="發證時間"
Dim nowlm(4)
nowlm(0)="IdentityNO"
nowlm(1)="c_no"
nowlm(2)="c_type"
nowlm(3)="c_typeinfo"
nowlm(4)="c_time"

IdentityNO=che(request("IdentityNO"))
c_nos=che(request("c_nos"))
c_type=che(request("c_type"))
c_typeinfo=che(request("c_typeinfo"))

If c_typeinfo="" Or Not IsNumeric(c_typeinfo) Then c_typeinfo=0
If c_type="" Or Not IsNumeric(c_type) Then c_type=0
Dim urlinfos
urlinfos="c_type="&c_type&"&c_typeinfo="&c_typeinfo&"&c_nos="&c_nos&"&IdentityNO="&IdentityNO

If action="list" Then
	Ispower powerid & "1"
	restit nowtit,infotit(0)
	nowmenu
	searchinfos
	const MaxPerPage=10
	listinfos
ElseIf action="add" Then
	Ispower powerid & "2"
	restit nowtit,infotit(1)
	nowmenu
	addinfos
ElseIf action="save" Then
	Ispower powerid & "2"
	jstable
	isn c_no,"證書編號",1
	isn IdentityNO,"身份證號",1
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Cert_info] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	sqltable "add" 
	rs.Update
	rs.close
	c_nos=""
	IdentityNO=""
	rightmsg "?action=list&"&urlinfos,""
ElseIf action="edit" Then
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	editinfos
ElseIf action="mod" Then
	Ispower powerid & "3"
	jstable
	isn c_no,"證書編號",1
	isn IdentityNO,"身份證號",1
	isn c_type,"證書名稱",1
	isn c_typeinfo,"證書類別",1
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Cert_info] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
		sqltable "mod"
		rs.Update
	Else
		errormsg "參數錯誤"
	End If
	rs.close
	c_nos=""
	IdentityNO=""
	rightmsg "?action=list&"&urlinfos,""
ElseIf action="del" Then
	Ispower powerid & "4"
	if id="" then errormsg "參數錯誤！"
	set dels=conn.execute("delete from Cert_info where id in ("&id&")")
	set dels=Nothing 
	c_nos=""
	IdentityNO=""
	rightmsg "?action=list&"&urlinfos,""
End If
%>
<!--#include file="admin_page_footer.asp"-->