62,074
社区成员
发帖
与我相关
我的任务
分享这个小程序用C＃怎么写？
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>
<Script Language="VB" Runat="Server">
Sub Page_Load(sender as Object, e as Eventargs)
Dim objReader As New StreamReader(Server.MapPath("Counter.txt"))
Dim Counter As Long = objReader.ReadLine()
objReader.Close()
Counter += 1
Dim objWriter As New StreamWriter(Server.MapPath("Counter.txt"), False)
objWriter.WriteLine(Counter)
objWriter.Close()
Dim I As Byte, ICounter As String
For I = 1 To Len(Counter.ToString())
ICounter = ICounter & "<Img Src=digit" & Mid(Counter, I, 1) & ".gif>"
Next
myCounter.Text = "您是第 " & ICounter & " 位访客"
lastVisitTime.Text = "最近一次浏览日期时间：" & System.DateTime.Now
End Sub
</Script>
<Html>
<Body BgColor="#FFFCC2">
<P><Img Src="last.jpg"></P>
<Asp:Label Runat="Server" Id="myCounter" /><Br>
<Asp:Label Runat="Server" Id="lastVisitTime" />
</Body>
</Html>
用C＃怎么改写VB代码。。。
最主要是
Dim I As Byte, ICounter As String
For I = 1 To Len(Counter.ToString())
ICounter = ICounter & "<Img Src=digit" & Mid(Counter, I, 1) & ".gif>"
Next
不会改，高手帮忙！！！
<%@ Import Namespace="System.IO" %>
<Script Language="VB" Runat="Server">
Sub Page_Load(sender as Object, e as Eventargs)
Dim objReader As New StreamReader(Server.MapPath("Counter.txt"))
Dim Counter As Long = objReader.ReadLine()
objReader.Close()
Counter += 1
Dim objWriter As New StreamWriter(Server.MapPath("Counter.txt"), False)
objWriter.WriteLine(Counter)
objWriter.Close()
Dim I As Byte, ICounter As String
For I = 1 To Len(Counter.ToString())
ICounter = ICounter & "<Img Src=digit" & Mid(Counter, I, 1) & ".gif>"
Next
myCounter.Text = "您是第 " & ICounter & " 位访客"
lastVisitTime.Text = "最近一次浏览日期时间：" & System.DateTime.Now
End Sub
</Script>
<Html>
<Body BgColor="#FFFCC2">
<P><Img Src="last.jpg"></P>
<Asp:Label Runat="Server" Id="myCounter" /><Br>
<Asp:Label Runat="Server" Id="lastVisitTime" />
</Body>
</Html>
用C＃怎么改写VB代码。。。
最主要是
Dim I As Byte, ICounter As String
For I = 1 To Len(Counter.ToString())
ICounter = ICounter & "<Img Src=digit" & Mid(Counter, I, 1) & ".gif>"
Next
不会改，高手帮忙！！！
...全文
请发表友善的回复…
发表回复
dongqgc 2003-05-06
- 打赏
- 举报
再顶一下，imfine再帮我看一下吧。。。谢谢！！！
dongqgc 2003-05-05
- 打赏
- 举报
帮帮忙再指导一下吧。。。谢谢！！！
dongqgc 2003-05-05
- 打赏
- 举报
letian兄，因为Counter是long型的,是不是必须Counter.ToString().Substring(i,1)呀？
我按你写的做了，可是还是出错，不知为什么？
错误提示说：
索引和长度必须引用该字符串内的位置。参数名：length
我按你写的做了，可是还是出错，不知为什么？
错误提示说：
索引和长度必须引用该字符串内的位置。参数名：length
goody9807 2003-05-05
- 打赏
- 举报
agree letian(你快乐，所以我快乐)
insect_wsj 2003-05-05
- 打赏
- 举报
for(int I=1;I<Counter.ToString().Length();I++)
ICounter +="<Img Src=digit" + Counter.Replace( I, 1) & ".gif>";
ICounter +="<Img Src=digit" + Counter.Replace( I, 1) & ".gif>";
letian 2003-05-05
- 打赏
- 举报
for(int i=0;i<Counter.ToString().Length();i++)
ICounter=ICounter+"<Img Src=digit"+Counter.Substring(i,1) +".gif">"
