?? admin_cert.asp
字號:
<!--#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"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -