conn.asp

来自「1.支持文章」· ASP 代码 · 共 77 行

<%
dim connstr
dim db
dim conn
dim ErrMsg
Dim ErrMsg_lx
dim Site
Site="skxiu.com"'Cookies名称，如果您在同一地址内有两个或以上个网站系统，请保证名称不同
db="Database/sk_data.mdb"'数据库位置
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If

Sub CloseConn()
     On Error Resume Next
	Conn.close
	set Conn=nothing
End sub


dim connstrItem
dim dbItem
dim connItem
dbItem="database/sk_Item.mdb"'采集项目数据库文件的位置 
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

'数据库CMS

dim CmsDBPath,CMs_ConnStr,CMSconn
Const DataBaseType=0 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库
If DataBaseType=0 then
	'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
	CmsDBPath       = "\Database\KS_DataBase.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
Else
	 '如果是SQL数据库，请认真修改好以下数据库选项
	 DataServer   = "(local)"                                  '数据库服务器IP
	 DataUser     = "sa"                                       '访问数据库用户名
	 DataBaseName = "KesionCms"                                '数据库名称
	 DataBasePsw  = "989066"                                   '访问数据库密码 
	 SqlNowString = "GetDate()"
End if
If DataBaseType = 1 Then
       CMs_ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
   Else
       CMs_ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(CmsDBPath)
    End If
Set CMSconn = Server.CreateObject("ADODB.Connection")
    CMSconn.open CMs_ConnStr
If Err Then Err.Clear:Set CMSconn = Nothing:Response.Write "CMS数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
sub closeCmSconn()
On Error Resume Next
   CMSconn.close
   Set CMSconn=nothing
end sub
%>