这是个选题过程,选题表choose(题目编号 Qid 和 学号 cho_sno) 如果已选的话,则显示所选的题目的信息 ;如果已选人数已达到限选人数 ,则不能选择该题目,返回到选择页面重新选择;否则进行选择 插入题目编号和学号,更改已选人数。但是这段代码是每次都执行最后插入和更改已选人数
采用 if *** else if *** else*** end if 后提示缺少End
Sel_status = 0
sno=Trim(Session("uno"))
Qid=Trim(Request.QueryString("Qid"))
Qnum=Trim(Request.QueryString("Qnum"))
p=Trim(Request.QueryString("Sel_status"))
sql="select * from choose where cho_sno ='" & sno &"'"
Set rs = ExecuteQuery(sql)
if Not rs.EOF then
Alert("你已经完成了毕业设计选题")
Response.Write("<script>window.location.replace('student_query.asp')</script>")
end if
if Sel_status=Qnum then
Alert("对不起!该题目已达到限选人数,不能再选择,请重新选择。")
Response.Write("<script>window.location.replace('student_choose.asp')</script>")
end if
sql="insert into choose(Qid,cho_sno)values('"& Qid &"','"& sno &"')"
ExecuteNonquery(sql)
If IsNumeric(p) Then
Sel_status = CInt(p)
End If
Sel_status = Sel_status + 1
sql = "UPDATE subject SET Qnum='"& Qnum &"' WHERE Qid = '"& Qid &"'"
Alert("你已成功选择该题!")
Response.Write("<script>window.location.replace('student_query.asp')</script>")
看了看好像没发现未必合的IF语句,不过有两处回车你删除试试,不行的话就把数据访问相关的代码注释掉,然后只调试这几块IF语句,如果没问题,就不是这个原因了。
asp中if结束时end吧 没有end if吧?????