datapath.asp

某镇信息自动化源程序

<%
//防盗必改!!
//数据库备份名
dim databasebakname
databasebakname="WSOA125abak.asp"  
//数据库名
a125db_All="HXMYDATABASE/#HX_125aDATABASE.asp"  
CLASS HX_databaseCONFIG    //OA
'返回数据库连接地址
    Public Function DBPathAddress(DBPathStr)
       SELECT CASE DBPathStr
          CASE 0
             DBPath ="HXMYDATABASE/#HX_125aDATABASE.asp"
          CASE 1
	         DBPath ="../HXMYDATABASE/#HX_125aDATABASE.asp"
          CASE 2
	         DBPath ="../../HXMYDATABASE/#HX_125aDATABASE.asp"
		  CASE 3
		     DBPath ="HXMYDATABASE/HX_IPaddress.mdb"
		  CASE 4
		     DBPath ="../HXMYDATABASE/HX_IPaddress.mdb"
		  CASE 5
		     DBPath ="../../HXMYDATABASE/HX_IPaddress.mdb"	  
       END SELECT 
	   DBPathAddress=server.mappath(DbPath)
    End Function
END CLASS
%>