save.asp

网络程序-学生课表生成系统。运用了模块化思想组织代码

<!--#include file="../database/opendb.asp"-->

 <%
myyear=Cint(trim(request("select_year")))'学年
semester=trim(request("select_semester"))'学期
institute=trim(request("select_institute"))'学院
grade=Cint(trim(request("select_grade")))'年级
major=trim(request("select_major"))'专业
name=trim(request("name"))'课程名称
begin_week=Cint(trim(request("select_begin_week")))'开始周
end_week=Cint(trim(request("select_end_week")))'结束周
week=Cint(trim(request("select_week")))'周几上课
begin_time=Cint(trim(request("select_begin_time")))'开始节
end_time=Cint(trim(request("select_end_time")))'结束节
other=trim(request("postscript"))'附注
where=trim(request("where"))'在哪上课

  
  strsql="select * from course where ID=" & Cint(request("id"))
  rst.open strsql,my_conn,1,3  


  rst("year")=myyear
  rst("semester")=semester
  rst("institute")=institute
  rst("grade")=grade
  rst("major")=major
  rst("name")=name
  rst("begin_week")=begin_week
  rst("end_week")=end_week
  rst("week")=week
  rst("begin_time")=begin_time
  rst("end_time")=end_time
  rst("other")=other
 rst("where")=where


  rst.update
%>
<!--#include file="../database/closedb.asp"-->
<%response.redirect "admin.asp"%>