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
	Ispower powerid & "2"
	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"-->