<%
'========================================================================================
' 文 件 名: connect.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: 系统连接文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================
On Error Resume Next
Response.Buffer = True  
Response.ExpiresAbsolute = Now() - 1  
Response.Expires = 0  
Response.CacheControl = "No-Cache"  
Response.AddHeader "Pragma", "No-Cache"
Response.AddHeader "X-Frame-Options", "SAMEORIGIN"
Response.AddHeader "X-Content-Type-Options", "nosniff"
Response.AddHeader "X-XSS-Protection", "1; mode=block"
Response.AddHeader "Content-Security-Policy", "default-src 'self';form-action 'self';style-src 'self' 'unsafe-inline';connect-src 'self';font-src 'self' data:;script-src 'self' 'unsafe-inline' 'unsafe-ev"&"al';object-src 'none'"
Response.AddHeader "X-Powered-By", "Servlet/3.1 J"&"SP/2.1"
'Response.AddHeader "X-Powered-By", "p"&"hp/7.4.0"
'Response.AddHeader "X-Powered-By", "WAF/2.0"
Response.AddHeader "X-Powered-By", "L"&"FMe"&"ss"&"S 2020 Build 3100"
Response.AddHeader "Server", "L"&"FMe"&"ss"&"S 2020 Build 3100"
Set conn = Server.CreateObject("ADODB.Connection")
'conn.connectiontimeout=20
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbnow)
conn.Open connstr
IF Err Then
Set Conn = Nothing
Session("DatabaseErr") = "ok_now"
Server.Transfer("noallow.asp")
'Response.Write ""& LingFengNet_MS_language_admin_mes_0 & err & LingFengNet_MS_language_admin_mes_0_1 &""
Err.Clear
Response.End
End IF
autobak()
%>