db.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 43 行

<%
Public StartTime:StartTime=timer
Public inpriceSeeSet
       inpriceSeeSet = 0
Const  CCode = "0"
Const  QCode = "1"
Public Conn
Public Rs
Set Conn = server.CreateObject("ADODB.Connection")
Set rs   = server.createobject("adodb.recordSet")
Public PrintCabSite
       PrintCabSite = "http://www.pconline.gd.cn/ScriptX.cab#Version=5,60,0,360"

Function DataOpen(SelectDataType,setdb,DataName,HOME_PATH,DataPassWord)
         dim connStr
         Select Case SelectDataType
            Case "Access"
				Select Case setdb
					   Case "1"
					   connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(HOME_PATH & DataName)
					   Case "2"
					   connStr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(HOME_PATH & DataName)
					   DataType = " Access "
				End Select
		     Case "SQL2000"
	               connStr="driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=ting" 
			       DataType = " SQLServer 2000 "
		     Case "",null
			       Response.Write "连接数据库时出现错误．请检查数据库相关参数！"
		           Response.End
		 End Select
         Conn.Open connStr
End Function
DataName = "../data.mdb"
SelectDataType = "Access"
Call DataOpen(SelectDataType,"1",DataName,HOME_PATH,DataPassWord)
function endtime
  dim endtime_
  endtime_ = timer()
  endtime = endtime_ - StartTime
end function
%>