<!--#include file="config.asp" -->
<%
Dim DbConn
'On Error Resume Next '当有错误时继续往下运行
Sub OpenDB(DataPathFile_c)
	Set ObjCAC = Server.CreateObject("dc_data100_v1_0.C_A_Config") 
	Set DbConn = Server.CreateObject("ADODB.Connection")	
	DbConn.Open ObjCAC.dbPath(DataPathFile_c)
End Sub
Sub CloseDB()
	DbConn.Close
	Set DbConn = Nothing
End Sub
Function RequestText(text)
	if text<>"" and not IsNull(text) then
		RequestText=Trim(Replace(text,"'",""))
	else
		RequestText=""
	end if
End Function
%>