classchaxundelok.asp

这是一个基于sql和asp的网页设计

<!--#include file="connectionstring.asp"-->
<%
idClass=request.cookies("idClass")
if idClass="" then
  response.write "非法操作！"
  response.end
end if

'SelectedTime=request("SelectedTime")
Classgp=request("Classgp")
idCourse=request("idCourse")
NameCourse=request("NameCourse")

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strConn

sql = "select * from groupxuan where classgp='"&Classgp&"' and kemu='"&IdCourse&"'"
set rs=conn.execute (sql)
SelectedTime=rs("time")


'if rs.eof then
'  response.write "请不要重复删除！"
'  response.end
'  conn.close
'end if

sql = "delete from groupxuan where classgp='"&Classgp&"' and kemu='"&IdCourse&"'"
conn.execute (sql)


  'sql = "delete from sels where ids like '"&left(idClass,5)&"%' and idc='"&IdCourse&"'and  time='"&SelectedTime&"'" 
  '2003-9-17 将5改为8
sql = "delete from sels where ids like '"&left(idClass,8)&"%' and idc='"&IdCourse&"'and  time='"&SelectedTime&"'" 

conn.execute (sql)

sql = "update cour Set num = 0 where id='"&IdCourse&"' and time = '" &SelectedTime& "'"
conn.execute (sql)

'
TimeTemp= Year(now) & "年" & Month(now) & "月" & Day(now) & "日" 
TimeTemp=TimeTemp & Hour(time) &"时" & Minute(time) & "分" & Second(time) & "秒"

caozuoTemp=name & "删除groupxuan表中："  & Classgp & " 预约 " & IdCourse & " 号实验；"
caozuoTemp=caozuoTemp & "删除sels表中ids类似于" & left(idClass,5) & ",实验号为" & IdCourse & ",时间为" & left(SelectedTime,6) & " 的单个学生预约；"
caozuoTemp=caozuoTemp & "修改cour表：" & IdCourse & "号实验" & left(SelectedTime,6) & "的num被置为0" 


sql="insert into logxk (time,caozuo) values('" &TimeTemp& "' , '" &caozuoTemp& "')"
'response.write sql
conn.execute(sql)
'
conn.close

response.redirect "ClassChaXunDelOk.htm"
%>