end if
’response.end
getBlockContent=tempstr ’ 返回该字符串.
end function
sub tofile(file)’ 输出到某个文件
dim tmp
tmp=gettext()
writefile file,content’ 输出到文件
end sub
function ParseBlock(block) ’ 到到某一个块的解析后的内容.
dim b,tmp
dim firststr,secondstr,tempstr
b=GetBlockContent(block) ’得到某一个块解析前的内容
tmp=getTextContent(b)’得到这个块解析后的内容.
BlockContent=BlockContent & tmp ’ 保存起来拉 哈哈。这样就实现了重复显示某一个块.
firstStr=""
secondStr=""
tmp=replace(tmp,firststr,"")
tmp=replace(tmp,secondstr,"")
ParseBlock=tmp
end function
function replaceBlock(block)’ 把解析了几次的块的内容给替换解析了.
dim con,tmp
dim firststr,secondstr,tempstr
con=GetBlockContent(block) ’得到这个块解析前的内容.
tmp=replace(content & "",con & "",Blockcontent & "")
blockcontent=""
firstStr=""
secondStr=""
tmp=replace(tmp,firststr,"")
tmp=replace(tmp,secondstr,"")
content=tmp
end function
function replaceBlockforNUll(block)’ 把解析了几次的块的内容给替换解析了.
dim tmp,con
con=GetBlockContent(block) ’得到这个块解析前的内容.
tmp=replace(content & "",con & "","")
blockcontent=""
content=tmp
end function
function replaceBlockfor(block,deStr)’ 把解析了几次的块的内容给替换解析了.
dim tmp,con
con=GetBlockContent(block) ’得到这个块解析前的内容. |
