初学asp.net,一本参考书上的计数器实力
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IOPartial Class _Default
Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim count As Integer
Dim stream As FileStream
Dim pathname, datastr As String
Dim strreadobj As StreamReader
Dim strwriteobj As StreamWriter
pathname = "counter.txt"
stream = New FileStream(pathname, FileMode.OpenOrCreate, FileAccess.Read)
strreadobj = New StreamReader(stream)
datastr = strreadobj.ReadLine()
strreadobj.Close()
count = CInt(datastr)
count += 1
counter.text = count
stream = New FileStream(pathname, FileMode.Open, FileAccess.Write)
strwriteobj = New StreamWriter(stream)
strwriteobj.WriteLine(count)
strwriteobj.Close() End If
End Sub
End Class
调试是显示counter没有定义,请问counter如何定义?
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IOPartial Class _Default
Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim count As Integer
Dim stream As FileStream
Dim pathname, datastr As String
Dim strreadobj As StreamReader
Dim strwriteobj As StreamWriter
pathname = "counter.txt"
stream = New FileStream(pathname, FileMode.OpenOrCreate, FileAccess.Read)
strreadobj = New StreamReader(stream)
datastr = strreadobj.ReadLine()
strreadobj.Close()
count = CInt(datastr)
count += 1
counter.text = count
stream = New FileStream(pathname, FileMode.Open, FileAccess.Write)
strwriteobj = New StreamWriter(stream)
strwriteobj.WriteLine(count)
strwriteobj.Close() End If
End Sub
End Class
调试是显示counter没有定义,请问counter如何定义?
<asp:textBox ID="counter" runat="server" Width="216px" Height="26px"
Enabled="false" ></asp:textBox><br />
如果让他做显示用,有可能是一个Label
应该只是在页面上显示用的。楼主直接在 前台拖一个 Lable 出来然后
counter.text = count
改为
Lable1.Text = count.ToString(); //不知道VB.Net里转字符型是不是这么转的。注意 Lable1 为你拖出来的 Lable的ID 你可以自己改个名字 对应就可以了。