软件开发培训班 >> 编程开发 >> JavaScript


新闻内页-JS分页

　　本文标签：新闻内页-JS分页

//推断内容里是否包括这个分页标签
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), "