?? classxuanketimeok.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 or IdCourse=20 or IdCourse=27 then
tnumber=request.cookies("tnumber")
classgroupName1=left(ClassGroupName,6)&"B"
classgroupName2=left(ClassGroupName,6)&"A"
Group1="A"
Group2="B"
tnumber=request.cookies("tnumber")
Set Conna=Server.CreateObject("ADODB.Connection")
Conna.Open strConn
sql="select * from groupxuan where classgp='" &ClassGroupName2& "' and time='" &SelectTime& "'"
set relist=conna.Execute(sql)
if not relist.eof then
response.write classname & "班" &Group& "在這個時間段里已經選擇了另一個實驗，同一時間內不能預約兩個相同實驗，所以請重新為本組進行預約！"
response.end
end if
relist.close
sql="select * from groupxuan where classgp='" &ClassGroupName2& "' and kemu='" &IdCourse& "'"
set relist=conna.Execute(sql)
if not relist.eof then
response.write classname & "班" &Group& "你們班已經選擇了這個實驗，請重新為本組進行預約！"
response.end
end if
relist.close
sql="select * from groupxuan where classgp='" &ClassGroupName1& "' and time='" &SelectTime& "'"
set relist=conna.Execute(sql)
if not relist.eof then
response.write classname & "班" &Group1& "在這個時間段里已經選擇了另一個實驗，同一時間內不能預約兩個相同實驗，所以請重新為本組進行預約！"
response.end
end if
relist.close
sql="select * from groupxuan where classgp='" &ClassGroupName1& "' and kemu='" &IdCourse& "'"
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='" & ClassGroupName1 & "'"
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="select count(*) as num from groupxuan where classgp='" & ClassGroupName2 & "'"
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
Set Conna=Server.CreateObject("ADODB.Connection")
Conna.Open strConn
js=0
sql="Insert into groupxuan (classgp,time,kemu) values('"
sql=sql&ClassGroupName2&"', '"
sql=sql&SelectTime&"', "
sql=sql&IdCourse&")"
Conna.Execute (sql)
sql="Insert into groupxuan (classgp,time,kemu) values('"
sql=sql&ClassGroupName1&"', '"
sql=sql&SelectTime&"', "
sql=sql&IdCourse&")"
Conna.Execute (sql)
sqla = "select * from stu where id like '" &IdClass& "%' and class = '" &ClassGroupName2& "'or class='" &ClassGroupName1& "'"
'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
wend
'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>"
Conna.Execute (sql)
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
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>"
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
wend
'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>"
Conna.Execute (sql)
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
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 + -