index.aspx

来自「《ASP.NET C#程序设计案例教程》」· ASPX 代码 · 共 29 行

ASPX
29
字号
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Language="VB" Runat="Server">
Sub Page_Load(Sender As Object,E as Eventargs)
	Dim VisitNum As Long=GetVisitNum()									'读取访问次数
	message.Text="您是第" & VisitNum & "位访客"							'显示访问次数
End Sub

'该函数用来读取访问次数
Function GetVisitNum() As Long
	Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("temp.mdb"))	
	Dim strSql As String = "Select * From counters"
	Dim cmd As New OleDbCommand(strSql, conn)							'建立Command对象
	conn.Open
	Dim dr As OleDbDataReader = cmd.ExecuteReader()						'建立DataReader对象
	dr.Read()
	GetVisitNum=dr.Item("VisitNum")										'返回原有访问次数
	conn.Close
End Function

</Script>
<html>
<body>
	<h3 align="center">个人主页</h3>
	<asp:Label id="message" runat="server"/>
</body> 
</html> 

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?