connect.asp

来自「www.vqqq.com（以下简称vqqq客户关系管理系统）」· ASP 代码 · 共 23 行

<%
'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()
%>