-- 发布时间：11/11/2006 7:00:00 PM
-- 求救一个崩溃的问题:出现一个意外错误: 'Send'
一个 百度音乐小偷程序,里面调用一个文件传参,内容如下:
<%
Function GetPage(url)
Dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
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 = "gb2312"
objstream.Charset = "UTF-8"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function GetContent(str,start,last,n)
If Instr(lcase(str),lcase(start))>0 and Instr(lcase(str),lcase(last))>0 then
select case n
case 0 '左右都截取（都取前面）（去处关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1)
case 1 '左右都截取（都取前面）（保留关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1)
case 2 '只往右截取（取前面的）（去除关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
case 3 '只往右截取（取前面的）（包含关键字）
GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
case 4 '只往左截取（取后面的）（包含关键字）
GetContent=Left(str,InstrRev(lcase(str),lcase(start))+Len(start)-1)
case 5 '只往左截取（取后面的）（去除关键字）
GetContent=Left(str,InstrRev(lcase(str),lcase(start))-1)
case 6 '只往左截取（取前面的）（包含关键字）
GetContent=Left(str,Instr(lcase(str),lcase(start))+Len(start)-1)
case 7 '只往右截取（取后面的）（包含关键字）
GetContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start))+1)
case 8 '只往左截取（取前面的）（去除关键字）
GetContent=Left(str,Instr(lcase(str),lcase(start))-1)
case 9 '只往右截取（取后面的）（包含关键字）
GetContent=Right(str,Len(str)-InstrRev(lcase(str),lcase(start)))
end select
Else
GetContent=""
End if
End function
Function toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
If szInput = "" Then
toUTF8 = szInput
Exit Function
End If
For x = 1 To Len(szInput)
wch = Mid(szInput, x, 1)
nAsc = AscW(wch)
If nAsc < 0 Then nAsc = nAsc + 65536
If (nAsc And &HFF80) = 0 Then
szRet = szRet & wch
Else
If (nAsc And &HF000) = 0 Then
uch = "%" & Hex(((nAsc \ 2 ^ 6)) or &HC0) & Hex(nAsc And &H3F or &H80)
szRet = szRet & uch
Else
uch = "%" & Hex((nAsc \ 2 ^ 12) or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F or &H80) & "%" & _
Hex(nAsc And &H3F or &H80)
szRet = szRet & uch
End If
End If
Next
toUTF8 = szRet
End Function
%>
本地测试一直正常,而上传服务器后开始运行正常,但是超过12小时-24小时就会提示以下信息:
Microsoft VBScript 运行时错误 错误 '800a01fb'
出现一个意外错误: 'Send'
/incGB.asp，行 7
而且最奇怪的是只要重启服务器后就又会正常
我已经处于崩溃状态
PS:/incGB.asp，行 7 --此文件即刚才上述内容的文件