stucurstv.asp

学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

<%
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)


%>