菜鸟自己写程序求助 asp

2004-04-02 10:15:47 58 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

FPGA领域四大顶级会议全景解读：从架构到应用的技术风向标本文全景解读FPGA领域四大顶级会议（FPGA、FCCM、FPL、FPT），剖析其各自定位与技术风向。FPGA会议聚焦架构与工具创新，FCCM专攻硬件加速与定制计算，FPL覆盖从理论到应用的广泛领域，FPT则重点关注亚太市场与前沿应用。跟踪这些会议是把握FPGA技术演进、寻找创新灵感和应用方案的高效途径。阅读详情

菜鸟自己写程序求助
iis上出错没有权限

<Script Language=VBScript RunAt=Server>

Sub Application_OnStart
Set fs=server.CreateObject("Scripting.FileSystemObject")
counter_file=Server.MapPath("/Counter.txt")
Set txt=fs.OpenTextFile("counter_file")
Application("Counter")=txt.ReadLine
txt.Close
Set Application("fs")=fs
Application("counter_File")=counter_file
End Sub

Sub Application_OnEnd
Set fs=Application("fs")
counter_File=Application("counter_file")
Set txt=Fs.CreateTextFile(counter_File,Trun)
txt.WriteLine(Application("counter"))
txt.Close
End Sub
</Script>

这个是我写的global.asa文件

<%
If IsEmpty(Session("Conntected")) Ten
Application.Lock
Application("counter")=Application("counter")+1
Application.UnLock
End If

Session("Connected")=Trun

%>
这是一个计算器代码[/color]

<%
Function GCounter(counter)
Dim S,I,G
S=CStr(Counter)
For I = 1 to Len(S)
G=G&"<IMG SRC="& Mid(S,I,1)&".gif Align=TextTop>"
Next
GCounter=G
End Function
%>
这个是调用图片的代码[/color]

...全文