菜鸟自己写程序求助 asp

xieztao 2004-04-02 10:15:47

菜鸟自己写程序求助
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]
...全文
3 点赞 收藏 回复
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告