conn.asp

来自「全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 」· ASP 代码 · 共 47 行

<%
dim connstr,connm,SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName="globalec"
SqlPassword="why?mantxx"
SqlUsername="sa"
SqlLocalName="(local)"
'-----------------------------------------------------------------------------------------------------
connstr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "主数据库连接出错，请检查连接字串。"
	Response.End
End If

Sub CloseConn()

	Conn.close
	set Conn=nothing
End sub


dim connstrItem
dim dbItem
dim connItem
dbItem="database/#Item.mdb"       
'On Error Resume Next
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
If Err Then
   err.Clear
   Set ConnItem = Nothing
   Response.Write "采集数据库连接出错，请检查连接字串。"
   Response.End
End If

Sub CloseConnItem()
   On Error Resume Next
   ConnItem.close
   Set ConnItem=nothing
End sub
%>