📄 classxuanketimeok1.asp
字号:
<!--#include file="connectionstring.asp"-->
<%
Group=request.cookies("Group")
ClassGroupName=request.cookies("ClassGroupName")
IdClass=request.cookies("IdClass")
IdCourse=Request("IdCourse")
SelectTime=request.cookies("SelectTime")
'response.write "classgroupname is :" & classgroupname
'response.write "idclass is :" & idclass
'response.write "idcourse is :" & idcourse
'response.write "selecttime is :" & selecttime
'response.end
Function Sqlstr(data)
Sqlstr="'" & Replace(data,"'","''") & "'"
End Function
if IdClass="" then
response.write "<html><body background=back1.jpg>非法操作！请你班正确登录！</body></html>"
response.end
end if
if IdCourse="" then
response.write "<html><body background=back1.jpg>非法操作！（实验号有误。）请重新选课！</body></html>"
response.end
end if
%>
<head>
<title></title>
</head>
<body background="Back1.jpg">
<%
if IdCourse=33 then
classgroupName=left(ClassGroupName,6)&"B"
sql="Insert into groupxuan (classgp,time,kemu) values('"
sql=sql&ClassGroupName&"', '"
sql=sql&SelectTime&"', "
sql=sql&IdCourse&")"
Conna.Execute (sql)
sqla = "select * from stu where id like '" &IdClass& "%' and class = '" &ClassGroupName& "'"
'response.write sqla & "<br>"
set rs=Conna.Execute (sqla)
while not rs.eof
idStu=rs("id")
abc=0
sql6="select * from sels where ids='" &idStu& "' and idc='" &IdCourse& "'"
set rs6=conna.execute(sql6)
if rs6.eof then
'此学生还没预约这个实验.
sql7="select * from sels where ids='" &idStu& "' and time='" &SelectTime& "'"
set rs7=conna.execute(sql7)
if rs7.eof then
'此学生此时间还没预约实验'
sql8="select * from status"
set rs8=conna.execute(sql8)
timeStartEnd=rs8("time")
timeMaxNum=rs8("tnum")
NumAlready=0
for ii=left(timeStartEnd,2) to right(timeStartEnd,2)
sql10="select count(*) as AlreadyNum from sels where time like '" &ii& "%' and ids ='" &idStu& "'"
set rs10=conna.execute(sql10)
NumAlready=NumAlready+rs10("AlreadyNum")
next
if NumAlready<timeMaxNum then
'此学生还没预约够实验项目,可以预约
sql="Insert Into sels (ids,idc,time,yuxiscore,caozuoscore,baogaoscore) Values("
sql=sql&SqlStr(idStu)&", "
sql=sql&SqlStr(IdCourse)&", "
sql=sql&SqlStr(SelectTime)&", "
sql=sql&abc&", "
sql=sql&abc&", "
sql=sql&abc&")"
Conna.Execute(sql)
js=js+1
end if
end if
end if
rs.Movenext
rs.close
sql="Update cour set num='"&js&"'"&" where id='"&IdCourse&"' and time like '"&SelectTime&"'"
'response.write sql & "<br>"
TimeTemp= Year(now) & "年" & Month(now) & "月" & Day(now) & "日"
TimeTemp=TimeTemp & Hour(time) &"时" & Minute(time) & "分" & Second(time) & "秒"
caozuoTemp=ban & "向groupxuan表中插入：" & SelectTime & " 实验号为：" & IdCourse
caozuoTemp=caozuoTemp & "；向sels表中插入：" & js & "条记录；"
caozuoTemp=caozuoTemp & "修改cour表：" & IdCourse & "号实验的num被置为" & js
sql="insert into logxk (time,caozuo) values('" &TimeTemp& "' , '" &caozuoTemp& "')"
conna.execute(sql)
conna.close
set conna=nothing
wend
else
Set Conna=Server.CreateObject("ADODB.Connection")
Conna.Open strConn
js=0
tnumber=request.cookies("tnumber")
sql="select * from groupxuan where classgp='" &ClassGroupName& "' and time='" &SelectTime& "'"
set relist=conna.Execute(sql)
if not relist.eof then
response.write classname & "班" &Group& "在这个时间段里已经选择了另一个实验，同一时间内不能预约两个相同实验，所以请重新为本组进行预约！"
response.end
end if
relist.close
Set Conna=Server.CreateObject("ADODB.Connection")
Conna.Open strConn
sql="select count(*) as num from groupxuan where classgp='" & ClassGroupName & "'"
set relist = conna.execute(sql)
number=relist("num")
sql="select * from classid where id='" & IdClass & "'"
set relist5=conna.execute(sql)
numberClassShould=relist5("num")
if number>=numberClassShould then
response.write "你们班已经完成应做的物理实验个数。不必再预约！"
response.end
relist5.close
relist.close
conna.close
end if
sql="Insert into groupxuan (classgp,time,kemu) values('"
sql=sql&ClassGroupName&"', '"
sql=sql&SelectTime&"', "
sql=sql&IdCourse&")"
Conna.Execute (sql)
sqla = "select * from stu where id like '" &IdClass& "%' and class = '" &ClassGroupName& "'"
'response.write sqla & "<br>"
sqla = "select * from stu where id like '" &IdClass& "%' and class = '" &ClassGroupName& "'"
'response.write sqla & "<br>"
set rs=Conna.Execute (sqla)
while not rs.eof
idStu=rs("id")
abc=0
sql6="select * from sels where ids='" &idStu& "' and idc='" &IdCourse& "'"
set rs6=conna.execute(sql6)
if rs6.eof then
'此学生还没预约这个实验.
sql7="select * from sels where ids='" &idStu& "' and time='" &SelectTime& "'"
set rs7=conna.execute(sql7)
if rs7.eof then
'此学生此时间还没预约实验'
sql8="select * from status"
set rs8=conna.execute(sql8)
timeStartEnd=rs8("time")
timeMaxNum=rs8("tnum")
NumAlready=0
for ii=left(timeStartEnd,2) to right(timeStartEnd,2)
sql10="select count(*) as AlreadyNum from sels where time like '" &ii& "%' and ids ='" &idStu& "'"
set rs10=conna.execute(sql10)
NumAlready=NumAlready+rs10("AlreadyNum")
next
if NumAlready<timeMaxNum then
'此学生还没预约够实验项目,可以预约
sql="Insert Into sels (ids,idc,time,yuxiscore,caozuoscore,baogaoscore) Values("
sql=sql&SqlStr(idStu)&", "
sql=sql&SqlStr(IdCourse)&", "
sql=sql&SqlStr(SelectTime)&", "
sql=sql&abc&", "
sql=sql&abc&", "
sql=sql&abc&")"
Conna.Execute(sql)
js=js+1
end if
end if
end if
rs.Movenext
'response.write "js is :" & js & "<br>"
rs.close
sql="Update cour set num='"&js&"'"&" where id='"&IdCourse&"' and time like '"&SelectTime&"'"
'response.write sql & "<br>"
TimeTemp= Year(now) & "年" & Month(now) & "月" & Day(now) & "日"
TimeTemp=TimeTemp & Hour(time) &"时" & Minute(time) & "分" & Second(time) & "秒"
caozuoTemp=ban & "向groupxuan表中插入：" & SelectTime & " 实验号为：" & IdCourse
caozuoTemp=caozuoTemp & "；向sels表中插入：" & js & "条记录；"
caozuoTemp=caozuoTemp & "修改cour表：" & IdCourse & "号实验的num被置为" & js
sql="insert into logxk (time,caozuo) values('" &TimeTemp& "' , '" &caozuoTemp& "')"
conna.execute(sql)
conna.close
set conna=nothing
wend
end if
%>
<p align="center"> </p>
<p align="center"><font size="6" color="#800080"><b>选课已经成功，</b></font></p>
<p align="center"><font size="6" color="#800080"><b>请按下面的按钮回到选单</b></font></p>
<hr color="#000080">
<p align="center"><A href="ClassMain.asp"><IMG border=0 height=59 id=IMG1 src="1.GIF" width=63 ></a></p>
<p align="center"> </p>
<p> </p></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -