<%
Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = hdobj.WeekaaConn()
JJ=request.form("JJ")
stoper=request.form("stoper")
ID=request.form("ClaID")
dim La(2000)
if JJ<>"" then
Lon=":"
for i=1 to JJ
L="L"&i
La(i)=request.form(L)
if La(i)<>"" then
Lon=Lon&La(i)&":"
end if
next
end if



Set stu = Server.CreateObject("ADODB.RecordSet")
sqstu = "Select * From [StuCur] where ID="&ID
stu.Open Sqstu,Connkaa,1,3
Lonn=stu("X")
loi=stu("XX")
stu("X")=lon
stu("XX")=stoper
stu.update

Dim Urs, sqlUrs, User_p
if JJ="" then
User_p = "學生選課"
else
User_p = "選課學生挑選" + Lonn
end if
Ulr = Request.ServerVariables("URL")
Set Urs = Server.CreateObject("ADODB.RecordSet")
sqlUrs = "Select * From [LogInfo] Where (ID is null)"
Urs.Open sqlUrs, Connkaa, 1, 3
Urs.AddNew
Urs("a") = Session("AdminUser")
Urs("b") = Now()
Urs("c") = User_p
Urs("d") = Request.ServerVariables("REMOTE_ADDR")
Urs("e") = Ulr
Urs.Update
Urs.Close
Set Urs = Nothing


ErrInfo = "ErrInfo.asp?info=" & "選課學生挑選完成"
Response.Redirect (ErrInfo)

%>