请高手进来帮忙解决一下,小弟不甚感激

技术信息（用于支持人员）

错误类型：
Active Server Pages, ASP 0137 (0x80004005)
脚本块必须是允许的 Global.asa 过程之一。< %...% > 中的脚本指令不允许出现在 global.asa 文件中。允许的过程名称是 Application_OnStart、Application_OnEnd、Session_OnStart 或 Session_OnEnd。
/455/config.asp, 第 1 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
'global.asa部分代码

<%
sub Gohome
fyjh_data="fyjh_data/fyjh_home.asp"
Application("fyjh_usermdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(fyjh_data)
'江湖秀数据库
Application("showmdb")="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fyjh_data/show.asp")
Application("jhshowurl")="http://qqshow-item.tencent.com" '这是使用tencent的图片
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("fyjh_usermdb")
rs.open "SELECT * FROM r",conn
do while Not rs.Eof
Application("fyjh_room")=Application("fyjh_room")&rs("a")&"|"&rs("b")&"|"&rs("c")&"|"&rs("d")&"|"&rs("e")&"|"&rs("f")&"|"&rs("g")&"|"&rs("h")&"|"&rs("i")&"|"&rs("j")&"|"&rs("l")&"|"&rs("m")&";"
Application("fyjh_npc"&rs("a"))=""
rs.MoveNext
loop
Application("fyjh_npc")=""
rs.close
set rs=nothing
conn.close
set conn=nothing
Dim nameindex(0)
fyjh_roominfo=split(Application("fyjh_room"),";")
for roomsn=0 to ubound(fyjh_roominfo)-1
Application("fyjh_onlinelist"&roomsn)=nameindex
fenroom=split(fyjh_roominfo(roomsn),"|")
application("fyjh_chatroomname"&roomsn)=fenroom(0)
Application("fyjh_useronlinename"&roomsn)=""
next
Dim wbq(0)
Application("fyjh_webicq")=wbq
webicqname=" "
Application("fyjh_webicqname")=webicqname
End sub
sub Gouser
Session.Timeout=1
End Sub
if Application("st_gohome")="" then
call Gohome()
Application("st_gohome")="go"
response.redirect "index.asp"
else
Response.write "<script language=javascript>window.location.href ='index.asp';alert('请不要捣乱，下次就没有这么客气了.');</script>"
end if
if Session("Gohome")="" then
call Gouser()
Session("Gohome")="go"
else
Response.write "<script language=javascript>window.location.href ='index.asp';alert('请不要捣乱，下次就没有这么客气了.');</script>"
end if
%>

6 个解决方案

#1

错误信息描述中说：

Global.asa 中不可以写

<% ... %>

这样的脚本。你要添加的内容只能添加在下面的方法中：

<script language=VBScript runat=Server>

Functon Application_OnStart
    .....
End Function

Function Application_OnEnd
    ......
End Function

Function Session_OnStart
    ......
End Function

Function Session_OnEnd
    ......
End Function

</script>

#2

同意楼上的说法

#3

哎。。沒分接了。。。

#4

晕，我记得你好象发过了啊，怎么发了一样的帖子？在那个文件里，不可以写asp代码的，只能写<script language=VBScript runat=Server>

Functon Application_OnStart
    .....
End Function

Function Application_OnEnd
    ......
End Function

Function Session_OnStart
    ......
End Function

Function Session_OnEnd
    ......
End Function

</script>

#5

按还不可以包含""这个语句啊?

#6

谢谢了,明白了

#1

#2