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