为什么Global.asa 不起作用？求助

2004-09-22 08:59:45 239 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

智能农业大棚目录摘要 1.绪论 2.系统概述及单片机介绍 2.1整体方案设计思想 2.2系统组成 2.2.1主控芯片的选择 2.2.2传感器模块选择 2.2.3电机驱动模块 2.3 单片机介绍 2.3.1 AT89C51单片机的基本组成 2.3.2AT89C51主要特性 2.3.3管脚说明 2.3.4 AT89C51单片机的存储器 2.3.4.1 程序存储器 2.3.4.2 数据存储器 2.3.5 振荡电路和时钟 2.3.6 AT89C51的中断阅读详情

我对于ASP编程的确是初哥，最近编了一个Global.asa文件放在IIS的根目录下，其中包括了几个事件
Application_OnStart Application_OnEnd
Session_OnStart

几个事件均进行了测试，当置于ASP中时可以运行。
但为什么我将IIS服务重启后，并且对default.asp进行访问，但是Application_OnStart并没有触发？

百思不得其解，望告

...全文

从逻辑门到RISC-V指令：ALU设计实战与Verilog实现本文详细介绍了从逻辑门到RISC-V指令集的ALU设计实战与Verilog实现方法。通过构建1位ALU并扩展至64位，深入解析了RISC-V指令集的算术逻辑单元实现技巧，包括加法器设计、零标志检测和溢出检测等关键功能。文章还分享了Verilog代码优化、流水线设计和常见问题调试的实用经验，为开发者提供了一套完整的ALU设计解决方案。阅读详情

BlueDog

IIS 8,329 成员 16,634 内容

+ 关注 + 加入社区

切换为时间正序

zhouhuaian 2004-11-17

打赏
举报

请问你这是怎么解决的?我的也是,现在这个文件就不起作用.在这里的创建ORACLE的对象在其它页面都要用.现在突然环境坏了.在重新装这个文件就怎么都不起作用了.急死人了.
以前执行得没问题.

笨笨兔兔兔兔兔 2004-09-24

打赏
举报

其实你可以试试hello world之类的东东在global.asa 中看看

nice90 2004-09-23

打赏
举报

好了，你这个里面的<script>必须顶着“<”写，下面是我修改后的global.asa代码和test.asp代码：
global.asa:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
DIM VCFN,FileObject,Out
VCFN = Server.MapPath ("/webdata") + "\VisitCount.txt"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
IF FileObject.FileExists(VCFN) = True THEN
'response.write("Open: " + VCFN +"<BR>")

Set Out= FileObject.OpenTextFile (VCFN, 1, FALSE, FALSE)
Out.SkipLine
Application("visitors") = Out.ReadLine
Out.Close
ELSE
'response.write("Create: " + VCFN +"<BR>")

Set Out= FileObject.CreateTextFile(VCFN)
Out.WriteLine("'Don't changed this file or delete it.")
Out.WriteLine("0")
Application("visitors") = 0
Out.Close
END IF

Application("VisitorCountFilename") = VCFN

'response.write(Application("visitors"))
'response.write(Application("VisitorCountFileName"))
'nice90 had tested this global.asa file.
'Application("MyTest") = "Welcome To This Global.asa"
Set Out =nothing
Set FileObject =nothing
End Sub

'=========================================================
SUB Application_OnEnd
Dim FileObject,Out

Set FileOutObject = Server.CreateObject("Scripting.FileSystemObject")
Application.lock
Set Out= FileOutObject.CreateTextFile (Application("VisitorCountFilename"), TRUE,FALSE)
Out.WriteLine("'Don't changed this file or delete it.")
Out.WriteLine(application("visitors"))
Out.Close
Application.unlock
Set Out =nothing
Set FileObject =nothing
End Sub

'=========================================================
Sub Session_OnStart
Session.Timeout = 30
Application.lock
Application("visitors") = Application("visitors") + 1
Application.unlock
End Sub

</SCRIPT>

Test.asp:
<%
Response.Write Server.MapPath ("/webdata") + "\VisitCount.txt"&"<br>"
Response.Write Application("VisitorCountFilename")&"<br>"
'Response.Write Application("MyTest")
Response.End
%>

panshiwu 2004-09-22

打赏
举报

代码贴出来看看

nice90 2004-09-22

打赏
举报

give out you global.asa and default.asp code.

BlueDog 2004-09-22

打赏
举报

我是放在站点的根下，比如说我有一个www.test.com
对应c:\inetput\webroot\
我在webroot下放了一个global.asa
但是没有作用。。。。。。

孟子E章 2004-09-22

打赏
举报

Global.asa要放到你虚拟目录的根或者站点根下，不是放在iis根下对所有的站点都起作用的,每个站点或者虚拟目录有自己的Global.asa

BlueDog 2004-09-22

打赏
举报

下面是我的代码，各位老大瞧瞧
< SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
DIM VCFN,FileObject,Out
VCFN = Server.MapPath ("/webdata") + "\VisitCount.txt"
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
IF FileObject.FileExists(VCFN) = True THEN
'response.write("Open: " + VCFN +"<BR>")

Set Out= FileObject.OpenTextFile (VCFN, 1, FALSE, FALSE)
Out.SkipLine
Application("visitors") = Out.ReadLine
Out.Close
ELSE
'response.write("Create: " + VCFN +"<BR>")

Set Out= FileObject.CreateTextFile(VCFN)
Out.WriteLine("'Don't changed this file or delete it.")
Out.WriteLine("0")
Application("visitors") = 0
Out.Close
END IF

Application("VisitorCountFilename") = VCFN

'response.write(Application("visitors"))
'response.write(Application("VisitorCountFileName"))
Set Out =nothing
Set FileObject =nothing
End Sub

'=========================================================
SUB Application_OnEnd
Dim FileObject,Out

Set FileOutObject = Server.CreateObject("Scripting.FileSystemObject")
Application.lock
Set Out= FileOutObject.CreateTextFile (Application("VisitorCountFilename"), TRUE,FALSE)
Out.WriteLine("'Don't changed this file or delete it.")
Out.WriteLine(application("visitors"))
Out.Close
Application.unlock
Set Out =nothing
Set FileObject =nothing
End Sub

'=========================================================
Sub Session_OnStart
Session.Timeout = 0
Application.lock
Application("visitors") = Application("visitors") + 1
Application.unlock
End Sub

< /SCRIPT>

为什么Global.asa 不起作用？求助

相关推荐