'//判断内容里是不是包含这个分页标签
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=(