<%
Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = hdobj.WeekaaConn()
ID=request("ID")
stuID=session("stuID")

Set stv = Server.CreateObject("ADODB.RecordSet")
sql = "Select * From [StuCur] where X like '%"&stuID&"%' and ID="&ID
stv.Open Sql,Connkaa,1,3
if not stv.eof then
ErrInfo = "ErrInfo.asp?info=" & "你已經選擇過這門課程了,請關注選課公告"
Response.Redirect (ErrInfo)
end if
stv.close
set stv=nothing
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")



if mid(lon,1,1)<>":" then
lon=":"&lonn & stuID & ":"
else
lon=lonn & stuID & ":"
end if

Kong="選課成功,祝賀你！"
if loi="stoper" then
ErrInfo = "ErrInfo.asp?info=" & "本課程已經停止選課"
Response.Redirect (ErrInfo)
end if

stu("X")=lon
stu.update
ErrInfo = "ErrInfo.asp?info=" & Kong
Response.Redirect (ErrInfo)


%>