gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\ArrangeCourse\selectInterval\saveInterval.asp

    <!--#include file="../../include/ADOVBS.asp"-->
<!--#include file="../../include/keepHouse.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保存设置</title>
</head>

<body>
<%
dim beginYear,beginMon,beginDate,endYear,endMon,endDate,beginTime,endTime
beginMon=request.form("beginMon")
beginDate=request.form("beginDate")
endMon=request.form("endMon")
endDate=request.form("endDate")
if(beginMon="" or beginDate="" or endMon="" or endDate="") then
	trigErr
end if
beginYear=Year(Date)
endYear=beginYear
beginTime=beginYear&"-"&beginMon&"-"&beginDate
endTime=endYear&"-"&endMon&"-"&endDate
beginTime=Cdate(beginTime)
endTime=Cdate(endTime)
openDB
sql="EXEC setSelectInterval '"&beginTime&"','"&endTime&"',1"
conn.execute(sql)
closeDB
showmsg("设置成功!")
%>
</body>
</html>