dataenvi.asp

功能齐全的oa系统

<%
Sub OpenDB( objDB )
  Dim SqlLocalName, SqlUsername, SqlPassword, SqlDatabaseName

  SqlLocalName    = "192.168.42.106"      '连接IP
  SqlUsername     = "sa"                  '用户名
  SqlPassword     = ""                 '用户密码
	SqlDatabaseName = "OFFICEOA"                  '数据库名
	if objDB.state=1 then
		'Response.Write "objDB.state=1"
		objDB.close
	end if
	objDB.open "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
End Sub

'连接HRMS库
Sub OpenDBH( objDBH )
  Dim SqlLocalName, SqlUsername, SqlPassword, SqlDatabaseName

  SqlLocalName    = "192.168.42.106"      '连接IP
  SqlUsername     = "sa"                  '用户名
  SqlPassword     = ""                 '用户密码
	SqlDatabaseName = "HRMS"               '数据库名
	if objDBH.state=1 then
		'Response.Write "objDB.state=1"
		objDBH.close
	end if
	objDBH.open "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
End Sub

''''''''''''''''''''''''''''''CRM SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub OpenDBCrm( conn )
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim crmSqlLocalName, crmSqlUsername, crmSqlPassword, crmSqlDatabaseName,crmConnStr
  crmSqlLocalName   ="192.168.42.106"       '连接IP  [ 本地用 (local) 外地用IP ]
  crmSqlUsername    ="sa"            '用户名
  crmSqlPassword    =""           '用户密码
  crmSqlDatabaseName="kingcrm"       '数据库名
  crmConnStr = "Provider=Sqloledb; User ID=" & crmSqlUsername & "; Password=" & crmSqlPassword & "; Initial Catalog = " & crmSqlDatabaseName & "; Data Source=" & crmSqlLocalName & ";"
  
  conn.open crmConnStr
End Sub
%>