Question

<script language="vbscript">

Function getActivity(ID)
    Option explicit
    Response.Buffer = true
    dim conn, sql, rs,rs1,Action, UserID, strHolder,                
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open Application("Database4_ConnectionString")
    sql = ""
    sql = "Select DateShown, Title, TextBody from Activity where ActID = "& ID
    set rs = Conn.Execute(sql)
    strHolder = rs("TextBody")
    If InStr(strHolder, "</font>") > 0 or InStr(strHolder, "</p>") > 0 or InStr(strHolder, "<br>") > 0 Then
        TextBody = strHolder
    Else
        TextBody = Replace("" & strHolder, chr(13) & chr(10), "<br>")
    End if
End Function
</script>

我尝试在html中使用此vbscript函数，如下所示，但它没有显示预期的输出。我想使用Text Body中的内容

<div class="modal-body">  
        <h4>Text in a modal</h4>  
        <p>You can add some text here too.</p>
        <p><script type="vbscript">getActivity(216)</script></p>                
    </div>

请告诉我哪里出错了。

Answer 1

来自文档：

如果使用，则Option Explicit语句必须先出现在脚本中任何其他陈述。

由于您没有看到错误消息，我认为您的代码中存在On Error Resume Next语句松散或IE设置中的“请勿打扰我，错误”选项。禁用它们以便能够找到并纠正进一步的错误。

Answer 2

我担心你无法在客户端vbscript中使用ADODB.Connection。您应该在服务器端执行此操作（使用classic-asp，asp.net或任何其他服务器端脚本语言）。

告诉我vbscript中的错误

2 个答案: