将指定的asp文件内容生成HTML文件
2004-12-29 09:53
309 查看
| ||||||
<% Function GetPage(url) dim Retrieval Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function Function BytesToBstr(body) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function on error resume next Url="http://www.taiang.com.cn/index.asp" response.write "开始更新首页..." wstr = GetPage(Url) Set fs=Server.CreateObject("Scripting.FileSystemObject") 'if not MyFile.FolderExists(server.MapPath("/html/")) then 'MyFile.CreateFolder(server.MapPath("/html/"))' 'end if If (fs.FileExists(server.MapPath("./")&"/index.htm")) Then fs.DeleteFile(server.MapPath("./")&"/index.htm") End If Set CrFi=fs.CreateTextFile(server.MapPath("./")&"/index.htm") Crfi.Writeline(wstr) set CrFi=nothing set fs=nothing response.write "...<font color=red>更新完成!</font>" %> |
相关文章推荐
- 将指定的asp文件内容生成HTML文件
- 将指定的asp文件内容生成HTML文件
- 将指定的asp文件内容生成HTML文件
- 将指定的asp文件内容生成HTML文件
- 将指定的asp文件内容生成HTML文件
- asp把指定网址的内容生成为PDF文件ABCPDF asp 生成pdf
- javaweb动态导出指定格式文件,并写入内容动态生成
- 把内容写入指定目录指定文件的java文件工具类,支持日期格式目录名的生成
- asp.net(c#)文件生成HTML文件
- ASP.NET 预生成事件,去除dll只读属性、复制文件到指定目录
- doc命令,将生成的内容保存到指定文件中
- asp把指定网址的内容生成为PDF文件ABCPDF示例代码及破解版下载
- ASP生成静态文件编码为UTF-8格式的HTML文件
- 生成文件列表并读取列表中各个文件的指定内容(C语言)
- 使用Python将TXT文本内容读取后生成指定XML格式的文件
- asp.net(c#)文件生成HTML文件
- ASP.Net 文件操作 直接生成HTML文件或者根据模板生成HTML文件
- 使用Python将TXT文本内容读取后生成指定XML格式的文件
- ASP生成静态文件编码为UTF-8格式的HTML文件
- ASP生成静态文件编码为UTF-8格式的HTML文件