?? admin_res_check.asp
字號:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<%
response.charset="gb2312"
Dim Col_id,lj_id,pro_id,sem_id
Dim arr_alls
Dim actions
Col_id=che(request("Col_id"))
lj_id=che(request("lj_id"))
pro_id=che(request("pro_id"))
actions=che(request("actions"))
sem_id=che(request("sem_id"))
If actions="" Then
If Col_id<>"" And pro_id="" Then '返回專業
sql=Sqlinfo("id,pro","res_pro","Col_id in ("&Col_id&") ","id",2,"")
rs = connopen(sql)
If isArray(rs)=False Then
res "0",0
Else
For i=0 To UBound(rs,2)
arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
Next
arr_alls=Left(arr_alls,Len(arr_alls)-2)
res arr_alls,0
End If
ElseIf lj_id<>"" And pro_id="" Then '返回選課項目
sql=Sqlinfo("id,cho_name","res_cou_cho_type","Opens=1 and lj_id in ("&lj_id&") ","id",2,"")
rs = connopen(sql)
If isArray(rs)=False Then
res "0",0
Else
For i=0 To UBound(rs,2)
arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
Next
arr_alls=Left(arr_alls,Len(arr_alls)-2)
res arr_alls,0
End If
ElseIf lj_id<>"" And Col_id<>"" And pro_id<>"" Then '返回班級
sql=Sqlinfo("id,cla","res_cla"," lj_id in ("&lj_id&") and Col_id in ("&Col_id&") and pro_id in ("&pro_id&") ","id",2,"")
rs = connopen(sql)
If isArray(rs)=False Then
res "0",0
Else
For i=0 To UBound(rs,2)
arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
Next
arr_alls=Left(arr_alls,Len(arr_alls)-2)
res arr_alls,0
End If
ElseIf lj_id="" And Col_id<>"" And pro_id<>"" Then '返回課程
sql=Sqlinfo("id,cou","res_cou"," Col_id in ("&Col_id&") and pro_id in ("&pro_id&") ","id",2,"")
rs = connopen(sql)
If isArray(rs)=False Then
res "0",0
Else
For i=0 To UBound(rs,2)
arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
Next
arr_alls=Left(arr_alls,Len(arr_alls)-2)
res arr_alls,0
End If
Else
res "0",0
End If
ElseIf actions="res_type" Then
sql=Sqlinfo("id,res_name","res_type"," lj_id in ("&lj_id&") ","id",2,"")
rs = connopen(sql)
If isArray(rs)=False Then
res "0",0
Else
For i=0 To UBound(rs,2)
arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
Next
arr_alls=Left(arr_alls,Len(arr_alls)-2)
res arr_alls,0
End If
ElseIf actions="res_cou" Then
sql=Sqlinfo("id,cou","res_cou"," lj_id in ("&lj_id&") and sem_ids like '%"&sem_id&"%' and Col_id in ("&Col_id&") and pro_id in ("&pro_id&") ","id",2,"")
rs = connopen(sql)
If isArray(rs)=False Then
res "0",0
Else
For i=0 To UBound(rs,2)
arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
Next
arr_alls=Left(arr_alls,Len(arr_alls)-2)
res arr_alls,0
End If
Else
res "0",0
End If
response.End
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -