Как, один раз ?
<%
Dim data
''// VBScript Strings cannot span multiple lines, we must use
''// concatenation ("&") and line continuation markers ("_")
''// (also, double quotes need to be escaped by *double* double quotes)
data = "" & _
"[" & _
" {" & _
" ""A"": ""test""," & vbCrLf & _
" ""B"": ""test""," & vbCrLf & _
" ""C"": ""test""" & vbCrLf & _
" }," & vbCrLf & _
" {" & vbCrLf & _
" ""A"": ""test""," & vbCrLf & _
" ""B"": ""test""," & vbCrLf & _
" ""C"": ""test""" & vbCrLf & _
" }" & vbCrLf & _
"]"
Response.Write Request.QueryString("callback") & "(" & data & ")"
%>
Можно избежать всего процесса конкатенации строк, если вы все равно собираетесь распечатывать все это (например, больше нет необходимости использовать его в переменной):
<%
Response.Write Request.QueryString("callback") & "("
%>
[
{
"A": "test",
"B": "test",
"C": "test"
},
{
"A": "test",
"B": "test",
"C": "test"
}
]
<%
Response.Write ")"
%>