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 + -
显示快捷键?