admin_res_cou.asp

da jia lai kan kan hao dong dong

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_res_cou_inc.asp"-->
<%
HTMLother= script("admin_res","")
res w3chead(HTMLother),1
nowtit="课程"
Login_Judge
powerid=125
Dim lj_id,Col_id,pro_id,cou,con,t_id,tea_id,sem_ids
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"))
t_id = che(request("t_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
If Not IsNumeric(t_id) Then t_id=0
Dim clas(7)
clas(0)="年届"
clas(1)="系所"
clas(2)="专业"
clas(3)="课程"
clas(4)="属性"
clas(5)="任课教师"
clas(6)="备注"
clas(7)="学期范围"
Dim claslm(7)
claslm(0)="lj_id"
claslm(1)="Col_id"
claslm(2)="pro_id"
claslm(3)="cou"
claslm(4)="t_id"
claslm(5)="tea_id"
claslm(6)="con"
claslm(7)="sem_ids"
Select Case action
Case "list"
		Ispower powerid & "1"
	const MaxPerPage=15
	restit nowtit,infotit(0)
	nowmenu
	listinfos
Case "add"
	Ispower powerid & "2"
	restit nowtit,infotit(1)
	nowmenu
	addinfos
Case "save"
	Ispower powerid & "2"
	jstable
	isn cou,"课程",1
	isn lj_id,"年届",3
	isn Col_id,"系所",3
	isn pro_id,"专业",3
	isn t_id,"课程属性",3
	sqlsave
	rightmsg "?action=list",""
Case "edit"
	Ispower powerid & "3"
	restit nowtit,infotit(2)
	nowmenu
	editinfos
Case "mod"
	Ispower powerid & "3"
	jstable
	isn cou,"课程",1
	isn t_id,"课程属性",3
	isn id,"id",1
	isn id,"id",3
	sqlmod
	rightmsg "?action=list",""
Case "del"
	Ispower powerid & "4"
	isn id,"id",1
	sqldel "res_cou",id
	rightmsg "?action=list",""
End Select
res footer(1),0
%>