|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。页面|转换前段工夫有个asp页面实行起来很慢,会见人数又颇多,并且又不常常修正,又懒得间接做成静态的,每次都要从服务器下载来改,只好想举措把asp页面转化成htm静态页面了。。。
之前就已经看到如许的文章,不外没太在乎,真正想用的时分很难找到一个符合的,因而在网上搜刮了半天终究找到对照符合的代码再加上本人的修正,以下:
<%
FunctionGetPage(url)
取得文件内容
dimRetrieval
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetPage=BytesToBstr(.ResponseBody)
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset="GB2312"
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
onerrorresumenext
Url="要读取的页面地点
response.write"入手下手更新首页..."
wstr=GetPage(Url)
response.write(wstr)
Setfs=Server.CreateObject("Scripting.FileSystemObject")
ifnotMyFile.FolderExists(server.MapPath("/html/"))then
MyFile.CreateFolder(server.MapPath("/html/"))
endif
要寄存的页面地点
dizhi=server.MapPath("index.htm")
If(fs.FileExists(dizhi))Then
fs.DeleteFile(dizhi)
EndIf
SetCrFi=fs.CreateTextFile(dizhi)
Crfi.Writeline(wstr)
setCrFi=nothing
setfs=nothing
response.write"...<fontcolor=red>更新完成!</font>"
%>
代码算是最复杂的,间接保留成一个asp文件便可,只需把URL(要转化的asp地点)和dizhi(要保留的html地点)设置好就能够了,一样平常这两个文件在统一个目次,才干包管图片大概CSS、js起感化。
但愿对那些正在寻觅asp->htm的伴侣有效。
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|