conn.asp

STM32 Keil 下的驱动STM32 Keil 下的驱动

<%
Dim Conn
Sub ConnOpen()
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeOut=30  '设置数据库连接时间
Conn.ConnectionString="Driver={MicroSoft Access Driver (*.mdb)};Dbq="&server.Mappath("database/CnwyAsp.mdb")
Conn.Open
End Sub
Sub ConnClose()
Conn.close
set Conn=Nothing
End Sub

%>