新闻内页-JS分页_JavaScript
程序员文章站
2022-04-14 12:13:28
...
'//判断内容里是不是包含这个分页标签
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), "
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="(
推荐阅读
-
Javascript vue.js表格分页,ajax异步加载数据
-
Javascript vue.js表格分页,ajax异步加载数据
-
js写的评论分页(还不错)_javascript技巧
-
js写的评论分页(还不错)_javascript技巧
-
纯js写的分页表格数据为json串_javascript技巧
-
使用JS+XML(数据岛)实现分页)_javascript技巧
-
javascript分页代码实例分享(js分页)_javascript技巧
-
简单的js分页脚本_javascript技巧
-
javascript-JS、php 分页 跳转问题 谢谢啦~~~
-
js实现ASP分页函数 HTML分页函数_javascript技巧