Question

我不是ASP人，但我最近继承了一个asp项目。我的任务非常重要，它可以使过去10年内构建的所有功能在用户的视觉和体验方面更加出色。

到目前为止，到目前为止一直很好。我收到以下错误消息：

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test/calsearchmember.asp, line 3

if ((Request.Form("dateToToggle").Item >=0) && (Request.Form("dateToToggle").Item<=31))
---------------------------------------------^

我已将网站复制到测试目录中并在那里进行了更改。这个日历搜索功能在主站点上工作正常，但在子目录中没有，我没有改变产生错误的文件。

任何想法？谢谢！

我想分享一些代码本身，以帮助描绘出更好的问题。

这是文件的调用方式：

<script language="JavaScript">
    <!--#include file="sidebarclientscript.inc"-->
</script>

这是代码的第一位（其中标记了错误）：

<%
if ((Request.Form("dateToToggle").Item >=0) && (Request.Form("dateToToggle").Item<=31))
{
    var sql;
    var date = Request.Form("calsearchmonth") + "/" + Request.Form("dateToToggle") + "/" + Request.Form("calsearchyear")

    if (Request.Form("bNewStateOpen").Item == "true")
    {
        sql = "SELECT * FROM OpenDates WHERE MemberId = ";
        sql += Request.Form("calsearchmember");
        sql += " AND DateValue(OpenDate) = DateValue('";
        sql += date;
        sql += "') AND TimeValue(OpenDate) = ";

        if (Request.Form("calsearchPM").Item == "1")
            sql += "TimeValue('12:00:00 PM')";
        else
            sql += "''";

        //Response.Write(sql);
        var rs = db.Execute(sql);
        if (rs.EOF)
        {
            sql = "INSERT INTO OpenDates (MemberId, OpenDate) VALUES ("
            sql += Request.Form("calsearchmember").Item
            sql += ", '"
            sql += date;
            if (Request.Form("calsearchPM").Item == "1")
                sql += " 12:00:00 PM";
            sql += "')"

            //Response.Write("<BR>"+sql);
            db.Execute(sql);
        }
    }
           %>`

希望这有助于澄清事情。再次感谢您的意见和帮助

Answer 1

看起来默认语言已从JScript更改为VBScript，因此请将其更改回JScript。

IIS 5：（也应适用于6）

管理控制台→右键单击网站→属性→主目录选项卡→配置按钮→选项→在“默认ASP语言”下键入JScript并确认。

IIS 7.5：

管理控制台→IIS→ASP→编译→脚本语言→键入“JScript”并确认。

7.5的屏幕截图，使其更清晰：

Answer 2

最后还需要then：

if ((Request.Form("dateToToggle").Item >=0) and (Request.Form("dateToToggle").Item<=31)) then

ASP vb编译错误800A03EA

2 个答案: