<%@LANGUAGE="VBScript.Encode" CODEPAGE="936"%>
<!--#include file="Config.asp"-->
<!--#include file="Function.asp"-->
<%	
	Response.Addheader "Content-Type","text/html; charset=gb2312"
	dim conn,connstr,Data,FalseType,TrueType,nowdate
	TrueType= "True"
	FalseType= "False"
	nowdate = "Now()"
	Data="../DataBase/"&DataName&""
	on error resume next
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="dbq="+server.mappath(Data)+";defaultdir=;driver={microsoft access driver (*.mdb)};uid=;password="&passwoid&";"
	conn.Open connstr

	If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "<div style='margin:100px;font-size:14px;text-align:center'>数据库连接出错，请检查数据库名称及路径是否正确。</div>"
	Response.End
	End If
	sub CloseConn()
	conn.close
	set conn=nothing
	end sub	
%>
<!--#include file="lockyou.asp"-->