错误的原因是，当counter>10000的时候，只能显示前4位。
请问怎样解决这个问题……………………
源代码如下：
<
%@ page language
=
"
VB
"
Debug
=
"
true
"
%
>
<
%@ Import
Namespace =
Namespace="System.IO"%>
<script language="VB" runat="server">
Function GetFileName()Function GetFileName() As String Dim FullPath As String Dim Position As Integer FullPath=Request.ServerVariables("PATH_TRANSLATED") Position=InstrRev(FullPath,".") GetFileName=Mid(Fullpath,1,Position)&"cnt"
End Function Sub Page_Load()sub Page_Load(sender As Object, e As EventArgs) if not Page.IsPostBack() then Dim i As Integer Dim Img As Image Dim Count As Integer Dim Graph As string Dim mystream As FileStream Dim pathname,datastr As string Dim strreadobj As StreamReader Dim strwriteobj As StreamWriter pathname=GetFileName() mystream =New FileStream(pathname,FileMode.OpenOrCreate,FileAccess.Read) strreadobj=New StreamReader(mystream) datastr=strreadobj.ReadLine() strreadobj.Close() Count=CInt(datastr)+1 for i=1 to len(Count) Img=New Image() Graph=Mid(Count,i,1) if Graph="" then Img.ImageUrl="Images/0.gif" Else Img.ImageUrl="Images/" & Graph & ".gif" MyDiv.Controls.Add(Img) end If next mystream=New FileStream(pathname,FileMode.Open,FileAccess.Write) strwriteobj=New StreamWriter(mystream) strwriteobj.WriteLine(Count) strwriteobj.Close() end if End sub </script><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>Text Counter</title></head><body><form runat="server"> 访问人数：<div id="MyDiv" runat="server"></div></form></body></html>
扫一扫
8373
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
