<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
response.buffer=true
session.codepage=936
response.charset="gb2312"
Dim Conn,db,MyDbPath,actcool,actField,NowString,ConnStr,aspexe,Startime
Startime=Timer()
Const page_list_num = 8'分页列数
Const isdebug=0  '开启调试模式,1为开启
Const isSqlDataBase = 0
Const MsxmlVersion=".3.0"  '系统采用XML版本设置
Const fycmsN="fycmsA0437BB3802B2AEEAF4B727A8F5D6894"'系统缓存名称.在一个URL下安装多个fycms请设置不同名称
Const DataBaseType="access"  '' 数据库类型: 值分别为 access   mssql
Const Nofile="asp|aspx|jsp|asa|vbs|exe|cer|cdx|htw|ida|idq|printer|cgi|php|php4|cfm|htr|phtml|ashx|chm|php3|asmx|ini|inf|htt|reg|cpp|cmd|aspa|shtm|shtml|htc"'禁止上传的文件后缀
NowString = "Now()"
MyDbPath ="/"'系统安装目录,如在虚拟目录下安装.请填写 /虚拟目录名称/
db = "data_fy/#fycms802B2AEEAF4B727A.mdb" 'ACCESS数据库的文件名
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MyDbPath & db)
Sub ConnectionDatabase()
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		response.write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置 [<a href=http://www.fycms.com/install.htm>Help</a>] &nbsp;[<a href='install/index.asp'>点击安装</a>]"
		Response.End
	End If
End Sub

Sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		Conn.Close:Set Conn = Nothing
	End If
End Sub
%>
<!--#include file="fy_inc/fy.Common.asp" -->
<!--#include file="fy_inc/rewrite.asp" -->
<!--#include file="fy_inc/md5.asp" -->
