\’//判断内容里是不是包含这个分页标签
if instr(cinfo,\”[NextPage]\”)>0 then
flag=1
else
flag=0
end if
\’//设置参数
\’//JS文件包函
\’//文本显示
\’//下面为JS文本处理函数
function DealJsText(Str)
if not isnull(Str) then
Dim re,po,ii
Str = Replace(Str, CHR(9), \” \”)
Str = Replace(Str, CHR(39), \”\’\”)
Str = Replace(Str, CHR(13), \”\”)
Str = Replace(Str, CHR(10) & CHR(13), \”
\”)
Str = Replace(Str, CHR(10), \”\”)
Str = Replace(Str, \”‘\”, \”\’\”)
Str = Replace(Str, \”\’\”, \”\’\”)
Str = Replace(Str, \”\\\”, \”\\\\\”)
Str = Replace(Str, CHR(32), \” \”)
Str = Replace(Str, CHR(34), \”\\\”\”\”)
Str = Replace(Str, CHR(39), \”\’\”)
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0
re.Pattern=\”(javascript)\”
Str=re.Replace(Str,\”javascript\”)
re.Pattern=\”(jscript:)\”
Str=re.Replace(Str,\”jscript:\”)
re.Pattern=\”(js:)\”
Str=re.Replace(Str,\”js:\”)
re.Pattern=\”()\”
Str=re.Replace(Str,\”\”)
re.Pattern=\”( 豫ICP备13019747号-13