 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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.4ico.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中利用ADO显示EXCEL文件内容的函数 · 如何使用ASP生成HTML文件 · 将一个ASP页面执行过的生成HTML代码保存为HTML文件 · 使用ASP生成HTML文件的实例代码 · 使用ASP生成HTML文件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
