由于代码比较短，这里就不进行注释了 代码如下:<% ‘当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题 ‘注意：本文件一定要放在20041227111723.htm指向的文件的同一目录下 dim hughchiu_rtcode Function get_exe_code(20041227111723.htm) dim execode dim tmp_str Dim re,re1,content,fso,f,aspStart,aspEnd
代码如下:<% if SaveFile(“/htm/list.htm”,”http://www.xxx.com/asp/list.asp”) then Response.write “已生成” else Response.write “没有生成” end if function SaveFile(LocalFileName,RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set Retrieval
