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"-->