用正则把英文双引号变成中文双引号

<%

Function FormatStr(jnkcV)

Dim jnkcTmp,jnkcRegExp

jnkcTmp = jnkcV & ""

Set jnkcRegExp = new RegExp

jnkcRegExp.IgnoreCase = True

jnkcRegExp.Global = True

jnkcRegExp.Pattern = """([^""]*)"""

jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"“$1”")

Set jnkcRegExp = Nothing

FormatStr = jnkcTmp

End Function

response.write FormatStr("dfsdf""sdf33asdfasd""sdfasdfas""sdf44asdfas""sdfsa")

%>