admin_couarr_dis.asp

来自「da jia lai kan kan hao dong dong」· ASP 代码 · 共 49 行

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_couarr_inc.asp"-->
<%
HTMLother= script("admin_couarr","")
res w3chead(HTMLother),1
Login_Judge
nowtit="班级课程分布"
powerid=1243
Ispower powerid
Dim lj_id,Col_id,pro_id
action=che(request("action"))
id=che(request("id"))
Dim nows(8)
nows(0)="年届"
nows(1)="学期"
nows(2)="系所"
nows(3)="专业"
nows(4)="班级"
nows(5)="课程"
nows(6)="任课教师"
nows(7)="教学场地"
nows(8)="课时"
Dim nowlm(8)
nowlm(0)="lj_id"
nowlm(1)="sem_id"
nowlm(2)="Col_id"
nowlm(3)="pro_id"
nowlm(4)="cla_id"
nowlm(5)="cou_id"
nowlm(6)="tea_id"
nowlm(7)="addr"
nowlm(8)="couinfo"
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
If action="list" Then
	restit nowtit,infotit(0)
	const MaxPerPage=10
	nowmenu
	dis_listinfos
End If
res footer(1),0
%>