admin_couarr_disiframe.asp

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

<!--#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 cou_id,tea_id,addr_id,coudis,cla_id,sem_id
Dim Temp_cou_0,Temp_cou_1,Temp_cou_3
Dim cou_all(7,7)
Dim w_i,h_i
action=che(request("action"))
id=che(request("id"))
Dim nows(5)
nows(0)="班级"
nows(1)="学期"
nows(2)="教学场地"
nows(3)="课时安排"
nows(4)="班级"
nows(5)="学期"
Dim nowlm(5)
nowlm(0)="cla_id"
nowlm(1)="sem_id"
nowlm(2)="addr_id"
nowlm(3)="couinfo"
nowlm(4)="cla_id"
nowlm(5)="sem_id"

cla_id = che(request("cla_id"))
sem_id = che(request("sem_id"))
If IsNull(cla_id) Then cla_id="null"
If Not IsNumeric(sem_id) Then sem_id=0
If action="list" Then
	dis_iframe_listinfos
ElseIf action="save" Then
	dis_iframe_jstable
	If IsNumeric(cla_id) And len(cla_id)=len(Replace(cla_id,", ","")) Then 
	dis_save(cla_id)
	ElseIf sem_id=0 Then
		response.End
	ElseIf len(cla_id)<>len(Replace(cla_id,", ","")) Then
		Dim Temp_claid
		Temp_claid=Split(cla_id,", ")
		For w_i=0 To UBound(Temp_claid)
			dis_save(Temp_claid(w_i))
		Next
	End If 
	Response.Redirect "?action=list&cla_id="&cla_id&"&sem_id="&sem_id
End If
%>