admin_cert.asp

asp学生信息管理系统

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/language.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<!--#include file="admin_Cert_inc.asp"-->
<SCRIPT src="../js/cert_date.js" type="text/javascript"></SCRIPT> 
<%
Login_Judge
Dim c_no,c_type,IdentityNO,c_time
Dim Names,c_nos,IdentityNOs,c_types
Dim Sql_Condition
Dim action
nowtit="证书"
action=che(request("action"))
id=che(request("id"))
Dim cercs(3)
cercs(0)="身份证"
cercs(1)="证书编号"
cercs(2)="证件名称"
cercs(3)="发证时间"
Dim cercslm(3)
cercslm(0)="IdentityNO"
cercslm(1)="c_no"
cercslm(2)="c_type"
cercslm(3)="c_time"
If action="list" Then
	Ispower 1101
	restit nowtit,infotit(0)
	searchinfos
	const MaxPerPage=10
	listinfos
ElseIf action="add" Then
	Ispower 1102
	restit nowtit,infotit(1)
	addinfos
ElseIf action="save" Then
	Ispower 1102
	jstable
	If c_no = "" Or IdentityNO="" Then errormsg "项目填写不完整!"
	addidentity IdentityNO
	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
	rightmsg "admin_Cert.asp?action=list",""
ElseIf action="edit" Then
	Ispower 1103
	restit nowtit,infotit(2)
	editinfos
ElseIf action="mod" Then
	Ispower 1103
	jstable
	If c_no = "" Or IdentityNO="" Then errormsg "项目填写不完整!"
	addidentity IdentityNO
	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
	rightmsg "admin_Cert.asp?action=list",""

ElseIf action="del" Then
	Ispower 1104
	if id="" then errormsg "参数错误！"
	set dels=conn.execute("delete from Cert_info where id in ("&id&")")
	set dels=Nothing 
	rightmsg "admin_Cert.asp?action=list",""
End If
%>
<!--#include file="admin_page_footer.asp"-->