<!--#include file="../../fy.Function.asp"-->
<%
 	Dim A:A=request("A")
	Select Case A
		Case "testsource"
			Call testsource()
 	End Select 


	  Sub testsource()
	   on error resume next
	   dim str:str=request("str")
	   If fycms.G("DataType")="1" or fycms.G("DataType")="5" or fycms.G("DataType")="6"  Then str=fycms.GetAbsolutePath(str)
	   dim tconn:Set tconn = Server.CreateObject("ADODB.Connection")
		tconn.open str
		If Err Then 
 		  Set tconn = Nothing
		  Response.Write "0|"&Err.Description
		else
		  Response.Write "1|"&Err.Description
		end if
	  end sub

%>