展开全部
不要误解了,HTML准确来说不能算语言,只是描叙性质的排版标签而已,也就是说任何页面、网站,最终发送到用户浏览器的都是html标签,然后由浏览器翻译成图文界面。这些标签你可以通过手动编写html文件直接发送,也可以编写asp脚本,根据用户要求当时生成html标签发送到浏览器。也就是说,ASP和html根本就是处于不同层面的,可以理解为html文件是人工编写的,而asp是代替人工来编写html的一个工具,怎么互转呢? --- 将asp页面转换成htm页面 日期:2006-06-20 00:00:00 点击:89 上传者:网友提供 来源:网络资源 前段时间有个asp页面执行起来很慢,访问人数又颇多,而且又不经常修改,又懒得直接做成静态的,每次都要从服务器下载来改,只好想办法把asp页面转化成htm静态页面了。。。 以前就曾经看到这样的文章,不过没太在意,真正想用的时候很难找到一个合适的,于是在网上搜索了半天终于找到比较合适的代码再加上自己的修改,如下: <% 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.sina.com.cn"'要读取的页面地址 response.write "开始更新首页..." wstr = GetPage(Url) 'response.write(wstr) Set fs=Server.CreateObject("Scripting.FileSystemObject") 'if not MyFile.FolderExists(server.MapPath("/html/")) then 'MyFile.CreateFolder(server.MapPath("/html/"))' 'end if '要存放的页面地址 dizhi=server.MapPath("index.htm") If (fs.FileExists(dizhi)) Then fs.DeleteFile(dizhi) End If Set CrFi=fs.CreateTextFile(dizhi) Crfi.Writeline(wstr) set CrFi=nothing set fs=nothing response.write "...<font color=red>更新完成!</font>" %> 代码算是最简单的,直接保存成一个asp文件即可,只要把URL(要转化的asp地址)和dizhi(要保存的html地址)设置好就可以了,一般这两个文件在同一个目录,才能保证图片或者css、js起作用。 希望对那些正在寻找asp->htm的朋友有用。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询