connect.asp

客户管理crm xitong ,希望能给你带来帮助

<%
'on error resume next
Dim strConn,objConn
Set objConn = Server.CreateObject("ADODB.CONNECTION")

strfilepath="..\data\crm.mdb"

strfilepath=server.MapPath(strfilepath)

StrConn="DBQ="&strfilepath&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
objConn.Open StrConn

function checkRight()
	strfilepath = request.ServerVariables("SCRIPT_NAME")
	If InStr(strfilepath, "login.asp") <= 0 then
		if session("loginuser")="" then
			response.redirect "../index.htm"
		end if
	end if
end function
checkRight()
%>