0

我不是一个 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);
        }
    }
           %>`

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

4

2 回答 2

2

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

IIS 5：（也应该适用于 6）

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

IIS 7.5：

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

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

于 2012-10-30T09:06:34.707 回答
0

最后还需要一个then：

if ((Request.Form("dateToToggle").Item >=0) and (Request.Form("dateToToggle").Item<=31)) then
于 2012-10-29T17:13:11.593 回答