<%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%>但是一直报错，请问还如何处理？

别沉了……

报什么错啊。

缺少End

 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

貌似只少了一个End，最后一个不需要的了