上海企业网站使用的ASP语言生成html造成IIS死锁的问题-新概念互动

资讯中心

News

上海企业网站使用的ASP语言生成html造成IIS死锁的问题

发布时间：2019-01-18 23:54 您所在的位置：网站首页 > 新闻资讯 > 行业动态

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
所用到的函数

Function GetHttpPage(HttpUrl, Coding)
On Error Resume Next
If IsNull(HttpUrl) = True Or Len(HttpUrl) < 18 Or HttpUrl = "" Then
GetHttpPage = "$False$"
Exit Function
End If
Dim Http
' Set Http = Server.CreateObject("MSXML2.XMLHTTP")
Set Http = Server.CreateObject("MSXML2.serverXMLHTTP")
Http.Open "GET", HttpUrl, False
Http.Send
If Http.Readystate <> 4 Then
GetHttpPage = "$False$"
Exit Function
End If
If Coding = 1 Then
GetHttpPage = BytesToBstr(Http.ResponseBody, "UTF-8")
ElseIf Coding = 2 Then
GetHttpPage = BytesToBstr(Http.ResponseBody, "Big5")
Else
GetHttpPage = BytesToBstr(Http.ResponseBody, "GB2312")
End If
Set Http = Nothing
If Err.Number <> 0 Then
Err.Clear
End If
End Function
Function BytesToBstr(Body, Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
Objstream.Type = 1
Objstream.Mode = 3
Objstream.Open
Objstream.Write Body
Objstream.Position = 0
Objstream.Type = 2
Objstream.Charset = Cset
BytesToBstr = Objstream.ReadText
Objstream.Close
Set Objstream = Nothing
End Function

本文章由新概念互动原创，如没特殊注明，转载请注明来自：http://www.jianzhan0.com/dongtai/22548.html

上一篇：上海企业网站制作的目录如何规划最合理

下一篇：国内搜索引擎老大百度官方的6个SEO建议

案例推荐

新力净化器营销型网站建设开发制作

九芯净水器设备网站建设制作开发

上海三思高端网站制作

金风科技网站制作开发

诚毅软件响应式网站建设制作开发

姆森制冷设备网站制作项目完工