' <summary> ' 生成首页 ' </summary> Sub MakeIndex() Dim ex ,data ,host host = Request.ServerVariables("HTTP_HOST") Set ex = CreateComponent("SL.Remote") ex.Location = "http://"& host &"/template/index.asp" data = ex.GetData() ex.Dispose Set ex =Nothing Dim fso ,ftxt Set fso = Server.CreateObject("Scripting.FileSystemObject") Set ftxt = fso.CreateTextFile(Server.MapPath("/index") ,true) ftxt.write data ftxt.close Set ftxt = Nothing Set fso = Nothing End Sub
http://blog.sina.com.cn/s/blog_4ec09bfe01000btk.html
response.write(html)
' <summary>
' 生成首页
' </summary>
Sub MakeIndex()
Dim ex ,data ,host
host = Request.ServerVariables("HTTP_HOST")
Set ex = CreateComponent("SL.Remote")
ex.Location = "http://"& host &"/template/index.asp"
data = ex.GetData()
ex.Dispose
Set ex =Nothing Dim fso ,ftxt
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set ftxt = fso.CreateTextFile(Server.MapPath("/index") ,true)
ftxt.write data
ftxt.close Set ftxt = Nothing
Set fso = Nothing
End Sub