06_01.asp
来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 20 行
ASP
20 行
<html>
<head>
<title>CreateObject方法实例</title>
</head>
<body>
<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Driver={SQL Server};Server=yangwu;Database=ASPTest;UID=sa;PWD=admin"
cn.Open
If cn.State = 1 Then
Response.Write "数据库连接对象已打开"
Else
Response.Write "数据库连接对象未打开"
End If
cn.close
set cn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?