conn.asp

财务预算管理 财务支出

<!--#include file="SqlIn.Asp"-->
<%
dim conn
dim connstr
'dim db
'db="Database/*.mdb" '数据库文件位置
on error resume next
'connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
connstr="Driver={SQL Server};server=127.0.0.1;database=huanghua;uid=sa;pwd=123;" 
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
%>