" content = re.replace(content,"")re.global = false re.pattern = "\" do set ms = re.execute(content) if ms.count0 then set m = ms(0) tmp_str = get_exe_code(m.submatches(0)) content = re.replace(content, tmp_str) else exit do end if loop set m = nothing set ms = nothingre.pattern="^\s*=" aspEnd=1 aspStart=inStr(aspEnd,content,"aspEnd+1 execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd,aspStart-aspEnd-2),"""",""""""), vbcrlf, """&vbcrlf&""")&""""&vbcrlf aspEnd=inStr(aspStart,content,"%\>")+2 tmp_str = Mid(content,aspStart,aspEnd-aspStart-2)do set ms = re1.execute(tmp_str) if ms.count0 then set m = ms(0) tmp_str = re1.replace(tmp_str, " hughchiu_rtcode = hughchiu_rtcode&"&m.submatches(0)) else exit do end if loopset m = nothing set ms = nothingexecode = execode& re.replace(tmp_str,"hughchiu_rtcode = hughchiu_rtcode&")aspStart=inStr(aspEnd,content,"" End Functionfunction asp2html(20041227111723.htm) dim code code = replace( replace( replace( get_exe_code(20041227111723.htm), "hughchiu_rtcode = hughchiu_rtcode&"""""&vbcrlf, "" ), "", "" ) 'response.Write(code) execute(code) 'response.Write( hughchiu_rtcode ) asp2html = hughchiu_rtcode end function %>参考资料：http://hi.baidu.com/yy66net/blog/item/ff8f6c27e735da0b908f9dee.html
已赞过已踩过否->网络数据传输->无反应的大BUG。还的努力啊。 |
