conns.aspx

来自「用VB实现」· ASPX 代码 · 共 27 行

ASPX
27
字号
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<script runat="server">
	Sub Page_Load(sender As Object, e As System.EventArgs)
		Dim strConn as String =  _ 
		           "Provider=Microsoft.Jet.OLEDB.4.0;" & _
				   "Data Source=" & Server.MapPath(".../bin/sales.mdb") & ";" & _
				   "Persist Security Info=False"
		Dim objConn as  New System.Data.Oledb.oledbConnection(strConn) 
		Response.write("连接对象建立......<br>")
		Response.write("打开连接......<br>")
		objConn.Open()
		Response.write("结束连接......<br>")	
		objConn.Close() 
	End Sub
</script>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库连接</title>
</head>
<body>

</body>
</html>

⌨️ 快捷键说明

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