add.asp

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

<!--#include file="../bg/css.asp"-->
<%
'实现页面运行时间记录
dim startime
startime=timer()
'----------------
%>



<!--打开数据库,并建立记录集-->
<!--#include file="../database/opendb.asp"-->
<%
'下面的函数是cint的加强函数,为了防止传入的是空值
function mycint(v)

if v="" then
v=0
else
v=cint(v)
end if

mycint=v

end function



%>



<%
'------------------------------
'第一步,先统计有多少条记录要添加
'--------------------------------
total=0 '初始化统计量
pointer1=1 '这是左边一个移动标尺,开始指向1
pointer2=2 '这是右边一个移动标尺,开始指向2

do while pointer2 > pointer1

c_select_name="select_name"&pointer1
c_myname=trim(request(c_select_name))',我们以内容是否为空判断是否是一条课程记录

if c_myname <>"" then
total=total+1 '累计提交的课程数
pointer2=pointer2+1'这里移动第二个标尺
end if

pointer1=pointer1+1'这里移动第一个标尺

loop

%>
<%'21
response.write ("<span class=""style1"">此次添加了:"&total&"条课程信息</span>")

'下面问题在于,如果数据不完整怎么办?会出错
if total>=1  then '若有数据要提交

for i=1 to total 
select_year="select_year"&i
myyear=mycint(trim(request(select_year))) '学年

select_semester="select_semester"&i
semester=trim(request(select_semester))'学期

select_institute="select_institute"&i
institute=trim(request(select_institute))'学院

select_grade="select_grade"&i
grade=mycint(trim(request(select_grade)))'年级

select_major="select_major"&i
major=trim(request(select_major))'专业


select_name="name"&i
name=trim(request(select_name))'课程名称


select_begin_week="select_begin_week"&i
begin_week=mycint(trim(request(select_begin_week)))'开始周

select_end_week="select_end_week"&i
end_week=mycint(trim(request(select_end_week)))'结束周

select_week="select_week"&i
week=mycint(trim(request(select_week)))'周几上课

select_begin_time="select_begin_time"&i
begin_time=mycint(trim(request(select_begin_time)))'开始节

select_end_time="select_end_time"&i
end_time=mycint(trim(request(select_end_time)))'结束节

select_where="select_where"&i
where=trim(request(select_where))'在哪上课

postscript="postscript"&i
other=trim(request(postscript))'附注
'--------------------



  strsql="select * from course "  
  rst.open strsql,my_conn,1,3   
  rst.addnew 

  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
  rst.close '关闭记录集

next
 
end if

'---------------------------
'最后关闭数据库连接对象
my_conn.close
set my_conn=nothing
'----------------------------
%>

<%
'-------------------
dim endtime
endtime=timer()
%>
<br><span class="style1">页面执行时间：<%=FormatNumber((endtime-startime)*1000,3)%>毫秒</span>