conn.asp

实验室预约,管理,asp,我们web老师写的一个小程序,转载请著名版权!选择关心的月度日历

<%	dim conn
	dim connstr,sysfilename
	dim dbfile ,Password,Username,LocalName
		sysfilename=""
		dbfile = "shiyanshi"
		Password = ""
		Username = "sa"
		LocalName = "127.0.0.1"
set conn=Server.CreateObject("adodb.Connection")
Conn.Open  "PROVIDER=SQLOLEDB.1;Data Source="&LocalName&";Initial Catalog="&dbfile&";Persist Security Info=True;User ID="&Username&";Password="&Password&";Connect Timeout=30"

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