菜鸟自己写程序求助 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]
...全文
21 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧