www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_res_type.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_res_type_inc.asp"-->
<%
HTMLother= script("admin_res","")
HTMLother= HTMLother & script("cert_date","../js")
res w3chead(HTMLother),1
nowtit="成绩类别"
Login_Judge
powerid=116
Dim res_name,con,lj_id
Dim cho_ts_edit
action=che(request("action"))
id=che(request("id"))
	lj_id = che(request("lj_id"))
Dim cho_ts(2)
cho_ts(0)="类别名称"
cho_ts(1)="类别说明"
cho_ts(2)="年届"
Dim cho_tslm(2)
cho_tslm(0)="res_name"
cho_tslm(1)="con"
cho_tslm(2)="lj_id"

If Not IsNumeric(lj_id) Then lj_id=0
If action="list" Then
	Ispower powerid & "1"
	const MaxPerPage=15
	restit nowtit,infotit(0)
	nowmenu
	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 res_name="" Then errormsg "项目名称填写不完整!"
	sql=Sqlinfo("*","res_type","id=0","","","")
	set rs=server.createobject("adodb.recordset")
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	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
	If res_name="" Then errormsg "项目名称填写不完整!"
	sql=Sqlinfo("*","res_type","id="&id,"","","")
	set rs=server.createobject("adodb.recordset")
	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"
	isn id,"id",1
	sqldel "res_type",id

	rightmsg "?action=list",""
End If
res footer(1),0
%>