超级简单的asp生成静态页面方法

Jul 4

bearjia , 05:01 , 午夜销魂调 , 评论(2) , 引用(0) , 阅读(1154) , Via 本站原创

今天是个不眠的早晨，西班牙赢得了4强的入场券，圣卡西完美的扑救,比利亚完美的进球，皮克就旁边待着去。我擦。
白天一个网站因为JS频繁的调用数据库造成了首页异常的缓慢，因此决定将其静态化。

代码如下：

<%
Function MakeHtml(strUrl,sfilename)
MakeHtml=False
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
Response.Write(sfilename)
objAdoStream.SaveToFile Server.MapPath(neturl & sfilename) ,2
objAdoStream.Close()
IF Err.number=0 Then
MakeHtml=True
End If
End Function
%>
<%=MakeHtml("http://www.dv9.org/index.asp","index.html")%>

首页静态生成触发事件可以由关闭该页的JS方法来来触发，或者直接写在IIS里面来定期运行。
以后再也不使用ASP的程序了，ACCESS这玩意优化不来。