将指定的asp文件内容生成HTML文件Web服务器教程
|
| 论文作者:佚名 论文来源:不详 论文发布时间:2006-6-18 22:54:38 论文发布人:chjchjchj |
减小字体
增大字体
摘要:将指定的asp文件内容生成HTML文件 <% 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>" %>
|
|
|
|
|
|
|
| ∷相关技术评论 |
(评论内容只代表网友观点,与本站立场无关!) [查看发表评论...] | |
|
|
| |
站内广告 |
| |
|
站内搜索 |
| |
栏目导航 |
| |
|
|
本月热门 |
| |
|
|
本日热门 |
| |
|
|
|