我有两种表格供人们填写,以报告有关学生的信息。然后我有第三个表格,他们选择学生和学期,它将从一个和两个一个地方显示所选学生的所有报告。
报告一和二有一个日期变量,该变量与输入到表单中的信息一起发送到数据库表。
根据选择的学期,我试图仅从那几个月开始提取报告。春季1月至4月,夏季5月至8月,秋季9月至12月。
Dim submitDate
submitDate=date()
在表格3上,这是我的选择框。
<label for="BySemester">Select semester</label>
<select size="1" name="BySemester">
<option value="Spring">Spring</option>
<option value="Summer">Summer</option>
<option value="Fall">Fall</option>
</select>
我尝试将semester定义为变量并创建一个if else if语句,但它似乎没有工作
Dim conn
Dim strconn
Dim studentName
Dim semester
Dim rsFacReport
Dim runFRspring
studentName=request.form.item(2)
semester=request.form.item(3)
If semester=Spring Then
runFRspring = "Select * from table name where studentName = '" & StudentName & "' and datepart(month,DateSubmitted)= BETWEEN '01' AND '04' "
runFRspring = runFRspring & "order by DateSubmitted"
set rsFacReport = Server.CreateObject("ADODB.Recordset")
rsFacReport.Open runFRspring, conn, 3, 3
code to loop through fields and write out
ElseIf semester=Summer Then
....
ElseIf semester=Fall Then
....
Else
response.write "No records found"
End If
答案 0 :(得分:1)
也许
If semester=Spring Then
应该是
If semester = "Spring" Then
(你使用“Option Explicit”吗?)
更新评论:
也许
... and datepart(month,DateSubmitted)= BETWEEN '01' AND '04'
应该是
... and datepart(month,DateSubmitted) BETWEEN 1 AND 4
(DatePart返回int;不需要=)
答案 1 :(得分:0)
If semester=Spring Then
应该是
If semester="Spring" Then