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>

この vbscript 関数を html で次のように使用してみましたが、期待どおりの出力が表示されません。コンテンツをテキスト本文で使用したい

<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 に答える