www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > admin/admin_res_cla.asp
<!--#include file="../conn.asp"--> <!--#include file="../inc/inc.asp"--> <!--#include file="inc/inc.asp"--> <!--#include file="common/admin_res_cla_inc.asp"--> <% HTMLother= script("admin_res","") res w3chead(HTMLother),1 nowtit="班级" Login_Judge powerid=123 Dim lj_id,Col_id,pro_id,cla,con action=che(request("action")) id=che(request("id")) pro_id = che(request("pro_id")) Col_id = che(request("Col_id")) lj_id = che(request("lj_id")) If Not IsNumeric(lj_id) Then lj_id=0 If Not IsNumeric(Col_id) Then Col_id=0 If Not IsNumeric(pro_id) Then pro_id=0 Dim clas(5) clas(0)="年届" clas(1)="系所" clas(2)="专业" clas(3)="班级" clas(4)="备注" Dim claslm(5) claslm(0)="lj_id" claslm(1)="Col_id" claslm(2)="pro_id" claslm(3)="cla" claslm(4)="con" select Case action Case "list" Ispower powerid & "1" const MaxPerPage=10 restit nowtit,infotit(0) nowmenu listinfos Case "add" Ispower powerid & "2" restit nowtit,infotit(1) nowmenu addinfos Case "save" Ispower powerid & "2" jstable isn lj_id,"年届",1 isn Col_id,"系所",3 isn pro_id,"专业",3 isn cla,"班级",3 Run rs,Sqlinfo("","res_cla","id=0"),3 rs.AddNew sqltable "add" rs.Update rs.close rightmsg "?action=list","" Case "edit" Ispower powerid & "3" restit nowtit,infotit(2) nowmenu editinfos Case "mod" Ispower powerid & "3" jstable If cla="" Then errormsg "项目填写不完整!" If IsNumeric(id)=False Or id="0" Then errormsg "参数错误!" Run rs,Sqlinfo("","res_cla","id="&id),3 If Not rs.Eof Then sqltable "mod" rs.Update Else errormsg "参数错误" End If close rs rightmsg "?action=list","" Case "del" Ispower powerid & "4" isn id,"id",1 sqldel "res_cla",id rightmsg "?action=list","" End select res footer(1) %>