conn.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<%@language="VBScript" codepage="65001"%>
<%
Session.CodePage=65001
Response.Charset="utf-8"
Response.buffer=True            

'=====用户修改内容开始=====

Const dataname="../data/#YCMS#.mdb"       '设置后台数据库路径

Const backdata="data/data.mdb"     '数据库备份路径(默认即可，若有特殊情况下再修改！)

'=====用户修改内容结束=====
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(dataname)
	If Err Then
	err.Clear
	set conn=nothing
	YCMS_print("数据库连接出错!")
	response.End
	End If
Function closedata()
    conn.close
set conn=nothing
end Function
Dim webname,weburl
Dim superlogin,supername,superuser,superadmin,supertype
superlogin=trim(session("superlogin"))
supername=trim(session("supername"))
superuser=trim(session("superuser"))
superadmin=trim(session("superadmin"))
supertype=cint(session("supertype"))
Set LoadSet=Conn.Execute("Select webset From [YCMS_set]")
webname=Split(LoadSet("webset"),"@@@")(0)
webskin=Split(LoadSet("webset"),"@@@")(5)
webpassword=Split(LoadSet("webset"),"@@@")(13)
Set LoadSet=Nothing
%>
<!--#include file="YCMS.asp"-->