注册 登录
编程论坛 ASP技术论坛

求高手指点!!!ASP条件判断的问题

hancycrystal 发布于 2012-05-23 19:14, 445 次点击
<%Dim strName ,strSynopsis ,srtTime , strAddressID
    strName = trim(Request.Form("name"))
    strSynopsis = trim(Request.Form("Synopsis"))
    strTime = trim(Request.Form("time"))
    strAddress = trim(Request.Form("Address"))

    Dim rs ,sql
    Set rs = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * FROM sms "
    rs.open strSql,conn,1,1
    If Not rs.EOF Then
        If rs("name") = strName and rs("starttime") = strTime and rs("Address") <> strAdress Then
        Response.Write("时间冲突!")
        ElseIf rs("name") <> strName and rs("time") = strTime and rs("Address") = strAdress Then
        Response.Write("课程冲突!")
        ElseIf rs("name") = strName and rs("time") <> strTime and rs("Address") = strAdress Then
        Response.Write("地点冲突!")
    Else
    rs.Close
    sl = "INSERT INTO sms (name,Synopsis,time,Address) Values('"& strName &"','"& strSynopsis &"','"& strTime &"','"& strAddress &"')"
    rs.open sql,conn,3,1
    Response.Write("<br><br><br><div align=center>添加成功!</div>")
    End If%>但是一直报错,请问还如何处理?
5 回复
#2
hancycrystal2012-05-23 20:16
别沉了……
#3
wangjy5002012-05-23 21:05
报什么错啊。
#4
hancycrystal2012-05-24 16:40
回复 3楼 wangjy500
缺少End
#5
wangjy5002012-05-24 19:58
程序代码:
If Not rs.EOF Then
        If rs("name") = strName and rs("starttime") = strTime and rs("Address") <> strAdress Then
        Response.Write("时间冲突!"
        ElseIf rs("name") <> strName and rs("time") = strTime and rs("Address") = strAdress Then
        Response.Write("课程冲突!"
        ElseIf rs("name") = strName and rs("time") <> strTime and rs("Address") = strAdress Then
        Response.Write("地点冲突!"
end if
    Else
    rs.Close
    sl = "INSERT INTO sms (name,Synopsis,time,Address) Values('"& strName &"','"& strSynopsis &"','"& strTime &"','"& strAddress &"')"
    rs.open sql,conn,3,1
    Response.Write("<br><br><br><div align=center>添加成功!</div>")
    End If
#6
ahclg20122012-06-08 14:46
貌似只少了一个End,最后一个不需要的了
1