conn.asp

本房地产网站功能强大

<!--#include file="setup.asp"--><%
  response.expires=0
  response.buffer=true
session.timeout=30
dim conn,dbpath
dbpath="../data/fyhouse.mdb"
dim char_str(20)
sub OpenDataConn()
if IsObject(conn) then Exit Sub
if datebasetype="1" then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
		Dim sql_databasename,sql_password,sql_username,sql_localname
		sql_localname = "(local)"
		sql_databasename = "fyhouse"
		sql_username = "fyhouse_user"
		sql_password = "12345678"
		connstr = "Provider = Sqloledb; User ID = " & sql_username & "; Password = " & sql_password & "; Initial Catalog = " & sql_databasename & "; Data Source = " & sql_localname & ";"
	Set conn=Server.CreateObject("ADODB.connection")
	conn.open connstr
else
	dim connstr
	connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
	connstr = connstr & Server.MapPath(dbpath)
	'response.write connstr
	set conn=Server.CreateObject("AdoDb.Connection")
	conn.Open connstr
end if
end sub
sub CloseDataConn()
	conn.close
	set conn=Nothing
end sub
%>