找一个网站或找段老计数器代码

就是网页底部有那种液晶计数器显示的显示“您是本站第**位访问者”很简单的以前的站都用这种的或者谁有这样的代码一定要有财务用的计算器显示数字的那种单页单用户谢谢各位达人有答... 就是网页底部有那种液晶计数器显示的显示“您是本站第**位访问者” 很简单的

以前的站都用这种的或者谁有这样的代码

一定要有财务用的计算器显示数字的那种单页单用户

谢谢各位达人有答案肯定加分
html的或调用展开

 我来答

1个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

仁者柔情
2013-12-05

知道答主

回答量：18

采纳率：0%

帮助的人：5.9万

我也去答题访问个人页

关注

展开全部

<％@ Page Language="VB" Debug="True" Explicit="True"％>
<％@ Import Namespace="System.IO" ％>

<html>
<head>
<title> New ASP.NET Document </title>
</head>
<body bgcolor="#FFFFFF" topmargin="0" marginheight="0">

<script runat="server" language="vb">

Sub Page_Load(Source As Object, E As EventArgs)
If Not page.ispostback then
Dim count As integer
Dim mike_stream As filestream
Dim mike_pathname,mike_str As string
Dim mike_readobj As streamreader
Dim mike_writerobj As streamwriter
mike_pathname=mike_getfilename()
mike_stream=New filestream(mike_pathname,filemode.openorcreate,fileaccess.read)
mike_readobj=New streamreader(mike_stream)
mike_str=mike_readobj.readline()
mike_readobj.close()
count=cint(mike_str)
count+=1
mikecat.text=count
mike_stream=New filestream(mike_pathname,filemode.open,fileaccess.write)
mike_writerobj=New streamwriter(mike_stream)
mike_writerobj.writeline(count)
mike_writerobj.close()
End if
End Sub

Function mike_getfilename() As string
Dim mike_path As string
Dim mike_position As integer
mike_path=request.servervariables("PATH_TRANSLATED")
mike_position=instrrev(mike_path,".")
mike_getfilename=mid(mike_path,1,mike_position) & "count"
End function

</script>

<form runat="server" method="">
<asp:Label id="mikecat" runat="server"/>
</form>

</body>
</html>

已赞过 已踩过<

评论收起

上海巴鲁图工程机械科技有限公司_
2022-05-15 广告

光电编码器，是一种通过光电转换将输出轴上的机械几何位移量转换成脉冲或数字量的传感器。光电编码器每转输出60（我们用老板没有说）个脉冲，五线制。其中两根为电源线，三根为脉冲线(A相、B相、Z)。电源的工作电压为（+5～+24V）直流电源。光... 点击进入详情页

本回答由上海巴鲁图工程机械科技有限公司_提供

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

找一个网站 或找段老计数器代码

为你推荐：

找一个网站或找段老计数器代码