?? admin_cert_type.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"-->
<%
Login_Judge
nowtit="證書名稱"
powerid=111
Dim cert_cont,cert_name
action=che(request("action"))
id=che(request("id"))
Dim nows(1)
nows(0)="證書名稱"
nows(1)="證書說明"
Dim nowlm(1)
nowlm(0)="cert_name"
nowlm(1)="cert_cont"
Dim urlinfos
If action="list" Then
Ispower powerid & "1"
restit nowtit,infotit(0)
nowmenu
const MaxPerPage=10
type_listinfos
ElseIf action="add" Then
Ispower powerid & "2"
restit nowtit,infotit(1)
nowmenu
type_addinfos
ElseIf action="save" Then
type_jstable
If cert_name = "" Then errormsg "參數錯誤"
set rs=server.createobject("adodb.recordset")
Sql = "SELECT * FROM [cert_type] WHERE id=0"
rs.Open Sql, Conn, 1, 3
rs.AddNew
Call type_sqltable("add")
rs.Update
rs.close
rightmsg "?action=list",""
ElseIf action="edit" Then
Ispower powerid & "3"
restit nowtit,infotit(2)
nowmenu
type_editinfos
ElseIf action="mod" Then
Ispower powerid & "3"
type_jstable
set rs=server.createobject("adodb.recordset")
Sql = "SELECT * FROM [cert_type] WHERE id="&id
rs.Open Sql, Conn, 1, 3
If Not rs.Eof Then
type_sqltable("mod")
rs.Update
Else
errormsg "參數錯誤"
End If
rs.close
rightmsg "?action=list",""
ElseIf action="del" Then
Ispower powerid & "4"
if id="" then errormsg "參數錯誤!"
set dels=conn.execute("delete from cert_type where id in ("&id&")")
set dels=Nothing
rightmsg "?action=list",""
End If
%>
<!--#include file="admin_page_footer.asp"-->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -