opendb.asp

企业办公自动化管理系统 asp+sql server 2005

<%'on error resume next
session.abandon
'Server.ScriptTimeOut=500
function opendb()
	dim conn
	conStr = "Driver={SQL Server};Description=sqldemo;SERVER=tracy\hoston;Database=office;UID=sa;Password=123456"  
	set conn = Server.CreateObject("ADODB.Connection") 
	conn.Open conStr
	set opendb=conn
end function
%>