asp动态网页优化问题

来源：百度知道 编辑：UC知道 时间：2024/04/30 02:00:20
怎样把abc.asp?id=18这样的页面转化为类似abc.asp/18.html的防动态页面?(虚拟主机用户)
我在网上找到这段代码但不知道怎么用,请详解(最好具体点,一步一步的讲,因为我不太懂):
如果真的说的很明白的话我愿意追加分!谢谢!
<%
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 = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/detail.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

以上这段代码其实很简单，其实就是利用XMLHTTP将你所生成页面中的HTML代码写入到一个静态页面中，比如说，你ASP程序循环出了一个列表的页面，那么XMLHTTP就将这个列表页的HTML代码写到另一个空的HTM页中，其中的strUrl就是你所传过来的链接地址。

FileName = "Index"&Item_Classid&".htm"
FilePath = Server.MapPath("/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
以上代码是在建立最终生成静态文件的名称和路径。

Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/detail.asp"
Do_Url = Do_Url&"?Item_Classid="&Item_Classid
strUrl = Do_Url
以上代码是通过拼写Do_Url字符串来获得你所传递过来的文件路径和参数，并最终附值到strUrl变量中。

dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
以上这段代码是在通过你所传递过来的strUrl解析该页面中的HTML代码；关键是这句（objXmlHttp.open "GET",strUrl,false ）。

Dim binFileData
binFileData = objXmlHttp.responseBody
以上代