经典ASP，VBScript串联问题，

Question

以下是一些我试图更改的经典Asp VB脚本，因此我可以使其在Windows 2012 Server上运行。 （我知道它的旧版本不要求:(。）这在我们的旧2003版本上有效，但是2012年不支持使用它的库。我现在使用存储过程发送此电子邮件。问题我面临的问题是，当我串联sMailBody字符串时，我必须具有不允许其串联的' or "语法。当我Response.Write(strRSs)我会得到字符串，但所有HTML都会呈现。

EXEC [dbo].[MailPackage] 'test@test.com', 'tteesstt@ttessttt.com', 'tset' {visible HTML}

      for x = 0 to uBound(aRecipientID)
            '-- Plugin real content
            sMailBody = Replace(sMailBody,"{*~BACKGROUND~*}","'"Session("LiveURL")&"")
            sMailBody = Replace(sMailBody,"{*~HEADER~*}",Session("LiveURL")&"images/testing.jpg")
            sMailBody = Replace(sMailBody,"{*~BODY~*}",sBody)
            sMailBody = Replace(sMailBody,"{*~URL~*}",Session("LiveURL") & "/viewpackage.asp?p=" & sPackageKey & "&u=" & aRecipientID(x) & "&s=" & nSendID&"'")

     Dim strRS 
    strRS = "EXEC [dbo].[MailPackage] " + "'" +  aRecipientEmail(x) + "', '" + Session("FromAddress") + "',  '" + sSubject + "', '" + sMailBody + "'"
   Response.Write(sMailBody)
   Response.Write(strRS)
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open  Session("ConnectionString")

    Conn.Execute strRS

我该如何纠正语法，以便将sMailBody作为消息正文传递到存储过程中。

Answer 1

假设您要用Session("LiveURL")的内容sMailBody的占位符{*~BACKGROUND~*} sMailBody {*~BACKGROUND~*} ：

更改

sMailBody = Replace(sMailBody,"{*~BACKGROUND~*}","'"Session("LiveURL")&"")

至

sMailBody = Replace(sMailBody, "{*~BACKGROUND~*}", Session("LiveURL"))

基本规则：

1. 替换需要3个字符串参数
2. 字符串文字中的双引号必须以“”转义
3. VBScript不会将变量内容插入/拼接到字符串文字中
4. 连接空字符串- & "" -浪费时间

其他的Replace行会编译，但是是否缺少Next ？

感谢@Lankymart的评论进行更新：

...假设您要用Session("LiveURL")的单引号内容sMailBody的占位符{*~BACKGROUND~*} sMailBody {*~BACKGROUND~*} ...

原始代码中的错误以及我对jackncode意图的可能错误的解释表明，通过级联构建字符串会给表达式增加太多噪音，以至于很容易弄乱。 参见数以百万计的问题，其中将引号路径和其他参数放入.Run或.Exec的命令行中。

在这种情况下，需要编写执行“嵌入”功能的函数，以便使DRY有趣的字母杂乱无章：

>> Function q(s) : q = "'" & s & "'" : End Function
>> Function qq(s) : qq = """" & s & """" : End Function
>> s = "x"
>> t = "<tag attr=@>"
>> WScript.Echo Replace(t, "@", q(s))
>> WScript.Echo Replace(t, "@", qq(s))
>>
<tag attr='x'>
<tag attr="x">

（请参见此处 ）