conn.asp

来自「实验室资源管理系统 实验室人事资料管理、实验室设备管理、实验课程管理及实验室软件」· ASP 代码 · 共 23 行

<%
dim conn
dim connstr
'dim db
'db="../Databases/shilianshi_Data.MDF" '数据库文件位置
on error resume next
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'connstr="provider=sqloledb.1;data source=localhost;Initial Catalog=shilianshi;uid=sa;pwd=sa;"
connstr="driver={sql server};server=B126613A04E6410;uid=sa;pwd=123;database=shilianshi;"
'connstr="provider=sqloledb.1;database=shilianshi;uid=sa;pwd=sa;"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sub CloseConn()
conn.close
set conn=nothing
end sub
%>