conn.asp

1

<!--#include file="Config.Asp"-->
<!--#include file="Inc/Ver.Asp"-->
<!--#include file="Inc/Inc.Asp"-->
<!--#include file="Inc/Function.Asp"-->
<!--#include file="Inc/Fso.Asp"-->
<!--#include file="Include/FY.Cache.asp"--><%
dim conn,db 
dim connstr,Rs,sql
Dim S_J,s
'on error resume next 
ConnStr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(mdb)&_
";Jet OLEDB:Database Password=qq1366024"
set conn=server.createobject("ADODB.CONNECTION") 
conn.open connstr
   if Err then 
        Err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
        Response.End
   end if 

sub CloseConn() 
on error resume next
  If IsObject(Conn) Then
		Conn.Close
		Set Conn = Nothing
	End If 
end sub

Dim FY_Site_Rs,FY_Config(20),InstallDir,Admin_InstallDir,res
set FY_Site_Rs=server.CreateObject("adodb.recordset")
sql="select * from 系统设置"
FY_Site_Rs.open sql,conn,1,1
if not FY_Site_Rs.eof then
FY_Config(0)=FY_Site_Rs("网站名称")
InstallDir=FY_Site_Rs("网站目录")
Admin_InstallDir=FY_Site_Rs("管理目录")
FY_Config(1)=FY_Site_Rs("description")
FY_Config(2)=FY_Site_Rs("keywords")
FY_Config(3)=FY_Site_Rs("网站Url")
FY_Config(4)=FY_Site_Rs("QQ")
FY_Config(5)=FY_Site_Rs("邮件")
FY_Config(6)=FY_Site_Rs("版权")
FY_Config(7)=FY_Site_Rs("官方连接")
FY_Config(8)=FY_Site_Rs("留言状态")
FY_Config(9)=FY_Site_Rs("图片目录")
FY_Config(10)=FY_CLng(FY_Site_Rs("小说数量"))
FY_Config(11)=FY_CLng(FY_Site_Rs("栏目数量"))
FY_Config(12)=FY_Site_Rs("站长名字")
FY_Config(13)=FY_Site_Rs("网站维护开关")
FY_Config(14)=FY_Site_Rs("网站维护说明")
FY_Config(15)=FY_CLng(FY_Site_Rs("页面扩展名"))
FY_Config(16)=FY_Site_Rs("默认模板")
FY_Config(17)=split(FY_Site_Rs("上传选项"),"[]")(1)
FY_Config(18)=split(FY_Site_Rs("上传选项"),"[]")(0)
FY_Config(19)=FY_Site_Rs("TXT保存路径")
FY_Config(20)=FY_Site_Rs("副标题")
end if
FY_Site_Rs.close
set FY_Site_Rs=nothing 
FY_Config(3)="Http://"&FY_Config(3)&""
Dim FoundErr,errmsg
FoundErr=False 
%>