📄 connect.asp
字号:
<%
'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()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -