求将VB翻译成c#的一小段代码

ydfqing 2007-08-24 09:54:06
<SCRIPT Language="vbscript" RunAt="server">

Sub Application_OnStart

'global.asa 一定是放在网站的虚拟根目录下的
'在根目录下有一个 counter.txt 记录访问总量

'Application("Counter") '计数器的变量名
'Application("Online") '在线人数的变量名

dim objFSO,objTS
set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objTS = objFSO.OpenTextFile(Server.MapPath("counter.txt"),1,false)
if not objTS.atendofstream then
Application("Counter") = CLng(objTS.ReadLine) '网站计数器
end if
objTS.close : set objTS=nothing : set objFSO = Nothing
Application("Online") = 0 '在线人数
End Sub

Sub Session_OnStart

Application.Lock
Application("Online") = Application("Online") + 1 '在线人数累加
Application("Counter") = Application("Counter")+ 1 '计数器累加
Application.UnLock
End Sub

Sub Session_OnEnd

Application.Lock
Application("Online") = Application("Online") - 1 '在线人数累减
Application.UnLock
End Sub

Sub Application_OnEnd

dim objFSO,objTS
set objFSO=Server.CreateObject("Scripting.FileSystemObject")
set objTS=objFSO.OpenTextFile(Server.MapPath("counter.txt"),2,true)
objTS.writeline(Application("Counter")) '将计数器记录到文本中
objTS.close : set objTS=nothing : set objFSO = Nothing
End Sub
</SCRIPT>

上面是我在网上找的梅花雪老师写的一段代码,看不大懂,请各位高手帮翻译成C#的,多谢了~~
...全文
226 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
jimu8130 2007-08-24
  • 打赏
  • 举报
回复
这段代码牵扯到的语言特性不多
jimu8130 2007-08-24
  • 打赏
  • 举报
回复
汗,lz都有注释了怎么还看得懂啊?
如果转成c#你能看得懂,vb你肯定能看懂的
dayuforever 2007-08-24
  • 打赏
  • 举报
回复
好像有专门的小工具可以转的
Red_angelX 2007-08-24
  • 打赏
  • 举报
回复
直接转下就好了
zhchg6666 2007-08-24
  • 打赏
  • 举报
回复
up

111,093

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • AIGC Browser
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

让您成为最强悍的C#开发者

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