<%
'Option Explicit
Response.Buffer = True
const webdir="/"  '网站的路径(IIS虚拟目录)
const cookies_name="hycms"  'cookies的前缀
Const MsxmlVersion = ".3.0"
'设置自定义验证码生成文件路径,相对博客站点根目录,一般改文件名即可.
Const IncCodePath = "incbixin2010/code.asp" 
'================================================================================================================
const IsSqlDataBase=0

dim DbPath,Conn,ConnStr,oa
set oa=new cls_bixin

If IsSqlDataBase = 1 Then

Else
'必修改设置三：========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将dvbbs6.mdb修改为dvbbs6.asp
DbPath = webdir&"hydatabasehyweb/#zyzmyxhuayuwebymhyrlzy.mdb"
'================================================================================================================
End If

Sub ConnectionDatabase 	
	If IsSqlDataBase = 1 Then
	Else
		'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DbPath)
		connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DbPath)
		
	End If
'	response.Write(connstr)
'	response.End()
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open connstr
	'If Err Then
'		err.Clear
'		Set Conn = Nothing
'		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
'		Response.End
'	End If
End Sub
%>
