conn.asp

HkSoft SMS API(短信开发接口源码)

<%
Option Explicit
On Error Resume Next
Dim Conn,db,Connstr
Response.Buffer = True



'-- 是否开启伪静态功能(False=否，True=是)
Const IsURLRewrite = False
'--系统XML版本设置，最低版本 Const MsxmlVersion=""
Const MsxmlVersion = ".3.0"



Dim DBPath
'-- 采集数据库连接路径
DBPath = server.MapPath("\inc\demo.mdb")


	
		Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ChkMapPath(DBPath)
		
		'Connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mdb"

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err<>0  Then
		Set Conn = Nothing
		Response.Write DBpath & Connstr
		Response.Write "[数据库连接出错..."  &  Err.Description & "]"
		Err.Clear
		Response.End
	end if


Sub CloseConn()
	Set Conn = Nothing
End Sub
'================================================
' 函数名：ChkMapPath
' 作  用：相对路径转换为绝对路径
' 参  数：strPath ----原路径
' 返回值：绝对路径
'================================================
Function ChkMapPath(ByVal strPath)
	Dim fullPath
	strPath = Replace(Replace(Trim(strPath), "/", "\"), "\\", "\")

	If strPath = "" Then strPath = "."
	If InStr(strPath,":\") = 0 Then
		fullPath = Server.MapPath(strPath)
	Else
		strPath = Replace(strPath,"..\","")
		fullPath = Trim(strPath)
		If Right(fullPath, 1) = "\" Then
			fullPath = Left(fullPath, Len(fullPath) - 1)
		End If
	End If
	ChkMapPath = fullPath
End Function
%>