虚拟主机教程

我们知道首页很重要，每个人打开网站进入的就是首页，而速度一般大于5秒别人就不愿意再等下去，3秒会觉得慢。然而首页一般的内容都非常多，不管是初始化，还是调用都非常多内容非常丰富。所以把首页生成为html是最好的方法 。
大概原理可以这样，在发表文章时，把index.html删除，首页优先用index.asp检查如果没有index.html就自动调用生成。
当然你还可以用application，一个变量用于记录上次生成时间，如果发现这个时间距今已经1小时，可以让其调用生成达到自动的目的。
<%
htmlBody=PostData("http://www.suntw.com/","")
Call saveFile("c:\1.html", htmlBody)

Function PostData(Byval Url,byval Data)
on error resume next
Set oXml=CreateObject("MSXML2.ServerXMLHTTP")
oXml.open "POST",Url,false
Call oXml.setrequestheader("content-type","application/x-www-form-urlencoded")
oXml.send(Data)
PostData=oXml.ResponseBody
Set oXml=nothing
End Function
Function saveFile(byval fileName,Byref binstr)
saveFile=true
Set ostream=CreateObject("Adodb.stream")
ostream.type=1
ostream.open
ostream.write binstr
ostream.SaveToFile fileName,2
ostream.close
set ostream=nothing
if Err then
saveFile=false
end if
End Function
'为什么要用post呢，因为这样才不会缓存，否则自己在网址后加随机参数吧
%>