公司网站运用的ASP说话生成html造成IIS死锁的题目

公司网站运用的ASP说话生成html造成IIS死锁的题目 ASP生成html   造成IIS死锁的题目

本机程序运转一切正常。 题目涌现在某一台服务器上

生成页面的机制是:
Url="http://www.xxxxxx.com/moban/moban_index.asp“
HtmlCode=getHTTPPage(Url,0)
' FSO生成页面
------走到这里就出题目了 getHTTPPage获取不了 代码

下面列下我测试的状况：
moban_index.asp 与数据库无关，就算随意写几个字进去，只有是后缀是 .asp
运转生成的程序 就造成 IIS死锁
非得我上服务器重新启动下IIS 网站才能运转。生成失败

moban_index.asp  这个要是改成静态页面  moban_index.html
生成的代码变成这样了
Url="http://www.xxxxxx.com/moban/moban_index.html“
HtmlCode=getHTTPPage(Url,0)
就一切正常了

感觉是服务器组件题目 不知道具体是什么题目  费事指点下

附：服务器配置   Windows2003  +  IIS6.0  SQL2005  .NET2.0运转环境
阿江探针:   http://116.252.185.35:88/aspcheck.asp
所用到的函数

1. Function GetHttpPage(HttpUrl, Coding)
   
2.    On Error Resume Next
   
3.     If IsNull(HttpUrl) = True Or Len(HttpUrl) < 18 Or HttpUrl = "" Then
   
4.         GetHttpPage = "$False$"
   
5.         Exit Function
   
6.     End If
   
7.     Dim Http
   
8. '    Set Http = Server.CreateObject("MSXML2.XMLHTTP")
   
9.         Set Http = Server.CreateObject("MSXML2.serverXMLHTTP")
   
10.     Http.Open "GET", HttpUrl, False
    
11.     Http.Send
    
12.     If Http.Readystate <> 4 Then
    
13.         GetHttpPage = "$False$"
    
14.         Exit Function
    
15.     End If
    
16.     If Coding = 1 Then
    
17.         GetHttpPage = BytesToBstr(Http.ResponseBody, "UTF-8")
    
18.     ElseIf Coding = 2 Then
    
19.         GetHttpPage = BytesToBstr(Http.ResponseBody, "Big5")
    
20.     Else
    
21.         GetHttpPage = BytesToBstr(Http.ResponseBody, "GB2312")
    
22.     End If
    
23.    
    
24.     Set Http = Nothing
    
25.     If Err.Number <> 0 Then
    
26.         Err.Clear
    
27.     End If
    
28. End Function
    
29. 
    
30. Function BytesToBstr(Body, Cset)
    
31.     Dim Objstream
    
32.     Set Objstream = Server.CreateObject("adodb.stream")
    
33.     Objstream.Type = 1
    
34.     Objstream.Mode = 3
    
35.     Objstream.Open
    
36.     Objstream.Write Body
    
37.     Objstream.Position = 0
    
38.     Objstream.Type = 2
    
39.     Objstream.Charset = Cset
    
40.     BytesToBstr = Objstream.ReadText
    
41.     Objstream.Close
    
42.     Set Objstream = Nothing
    
43. End Function