sqlcloseconnection.aspx
来自「asp.net技术内幕的书配源码」· ASPX 代码 · 共 40 行
ASPX
40 行
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Dim conPubs As SqlConnection
Sub Page_Load
Dim dtrAuthors As SqlDataReader
dtrAuthors = GetAuthors()
While dtrAuthors.Read
lblAuthors.Text &= "<li>"
lblAuthors.Text &= dtrAuthors( "au_lname" )
End While
dtrAuthors.Close()
lblAuthors.Text &= "<hr> Connection is:" & conPubs.State.ToString()
End Sub
Function GetAuthors() As SqlDataReader
Dim cmdAuthors As SqlCommand
conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;database=pubs" )
cmdAuthors = New SqlCommand( "select * from Authors", conPubs )
conPubs.Open()
Return cmdAuthors.ExecuteReader( CommandBehavior.CloseConnection )
End Function
</Script>
<html>
<head><title>SqlCloseConnection.aspx</title></head>
<body>
<asp:Label
id="lblAuthors"
Runat="Server" />
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?