关于asp静态化不成功的有关问题

2012-10-11

关于asp静态化不成功的问题VBScript code%　　dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_

关于asp静态化不成功的问题

VBScript code

<%　　dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp　　Html_Temp="<UL>"　　For i=1 To 3　　Html_Temp = Html_Temp&"<LI>"　　Item_Classid = i　　FileName = "Index"&Item_Classid&".htm"　　FilePath = Server.MapPath("/")&"\"&FileName　　Html_Temp = Html_Temp&FilePath&"</LI>"　　Do_Url = 你的网站地址　　Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp"　　Do_Url = Do_Url&"?Item_Classid="&Item_Classid　　strUrl = Do_Url　　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)　　objAdoStream.SaveToFile FilePath,2　　objAdoStream.Close()　　Next　　Html_Temp = Html_Temp&"<UL>"　　%>　　<%　　Response.Write ( "成功生成文件：" )　　Response.Write ( "<BR>" )　　Response.Write Html_Temp　　%>

想用上面的代码静态化asp页面，但不成功，不知道哪里出问题了，参考的是百度百科 http://baike.baidu.com/view/2647196.htm

[解决办法]
asp静态化使用fso实现，不要使用什么Microsoft.XMLHTTP
[解决办法]
fso
f.WriteLine("<html>")
f.WriteLine("<body>")
While Not rs.EOF
f.WriteLine("列表")
rs.MoveNext
Wend

实现静态，一般都有模板的。
模板就是一个文本文件。替换ianlm的内容区，再写成文件就可以了

[解决办法]
objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
其实正常的话一般也可以的，只是在效率上不够直接，而且对服务器会造成不必要的压力。

使用XMLHTTP和ADODB.Stream两个配合完成，任何一个有错都不会成功。而使用FSO的话，直接生成静态页面，是效率最高也最稳定的。
[解决办法]
http://9host.cn/tech-asp/20074221741144607.html

热点排行

ASP

关于asp静态化不成功的有关问题