<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
<!-- #include file="safe.asp" -->
on error resume next
	dim trainconn,trainconnstr
	set trainconn=Server.CreateObject("Adodb.Connection")
    trainconnstr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&Server.MapPath("^$&vbdsfthsdgfdlkgjdata/cbfdfje3648fhdjsbvjwlduas.asp")

	if err then 
	  err.clear
	 else
	   trainconn.open trainconnstr
	   if err then 
	     response.Write("数据库连接出错。")
	      err.clear
	   end if
	end if
%>