这段asp文件转html代码在执行的时候经常会卡死？麻烦各位帮我看看

rs.movenext

i=i+1

Response.Flush

Response.Clear

x=int(i*100/mpage)

response.Write("<script>fs("&x&","&mpage&")</script>")

loop

'结束

Response.Write("------共生成了"&rs.recordcount&"个文件------")

function makeindex(FileNameA,FileNameB)

FilePath = Server.MapPath("/")&"\"&FileNameA

strUrl = "http://"&Request.ServerVariables("SERVER_NAME")&"/"&FileNameB

'创建objXmlHttp

dim objXmlHttp

set objXmlHttp = Server.CreateObject("Micro"&"soft"&".XML"&"HT"&"TP")'加"&"加"&"防止误杀

objXmlHttp.open "GET",strUrl,false

objXmlHttp.send()

Dim binFileData

binFileData = objXmlHttp.responseBody

'创建objAdoStream

Dim objAdoStream

set objAdoStream = Server.CreateObject("AD"&"ODB"&".Str"&"eam")'加"&"防止误杀

objAdoStream.Type = 1

objAdoStream.Open()

objAdoStream.Write(binFileData)

objAdoStream.SaveToFile FilePath,2 

objAdoStream.Close()

end function

%>