|
|
|
在浏览器里出入<a target=_blank href=http://127.0.0.1>http://127.0.0.1</a>,后出现以下提示:<br>
<br>
<font color="red">Server 对象 错误 'ASP 0177 : 800401f3' <br>
<br>
Server.CreateObject 失败 <br>
<br>
/LM/W3SVC/1626862975/Root/global.asa,行 4 <br>
<br>
800401f3 </font><br>
<br>
<br>
哪位大虾帮我一下吧。<font color="blue">global.asa文件代码如下</font>:<br>
<br>
<SCRIPT LANGUAGE=VBScript RUNAT=Server> <br>
Sub Application_OnStart<br>
Application.Lock<br>
Set Application("em") = <br>
<br>
Server.CreateObject("easymail.Users")<br>
Application.Unlock<br>
End Sub<br>
<br>
<br>
Sub Application_OnEnd<br>
Application.Lock<br>
Set Application("em") = nothing<br>
Application.Unlock<br>
End Sub<br>
<br>
<br>
Sub Session_OnStart<br>
On Error Resume Next<br>
Err.Clear<br>
Application("em").GetLastErr<br>
<br>
if Err.Number > 0 then<br>
Application.Lock<br>
Set Application("em") = <br>
<br>
Server.CreateObject("easymail.Users")<br>
Application.Unlock<br>
<br>
Err.Clear<br>
end if<br>
End Sub<br>
<br>
<br>
Sub Session_OnEnd<br>
dim se_wem<br>
dim se_tid<br>
<br>
Application.Lock<br>
<br>
se_wem = Session("wem")<br>
se_tid = Session("tid")<br>
<br>
if se_wem <> "" and se_tid <> "" and IsNull<br>
<br>
(Application("em")) = FALSE then<br>
Application("em").Logout se_wem, <br>
<br>
se_tid<br>
end if<br>
<br>
Application.Unlock<br>
End Sub<br>
</SCRIPT> |
|