0
<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 函数如下,但它没有显示预期的输出。我想使用文本正文中的内容

<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> 

请告诉我哪里出错了。

4

2 回答 2

1

从文档:

如果使用,Option Explicit 语句必须出现在脚本中的任何其他语句之前。

由于您没有看到错误消息,我假设On Error Resume Next您的代码中有一条松散的声明,或者您的 IE 设置中激活了“不要因错误而打扰我”选项。禁用它们以便能够找到并纠正更多错误。

于 2012-09-05T07:14:18.300 回答
0

恐怕您将无法在客户端 vbscript 中使用 ADODB.Connection。您应该在服务器端执行此操作(使用 classic-asp、asp.net 或任何其他服务器端脚本语言)。

于 2012-09-05T10:01:04.770 回答