菜鸟自己写程序求助 asp
菜鸟自己写程序求助
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]