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