Asp連接資料庫﹐與大家共享﹐希望有所幫助﹗
<%
Dim HjConnDb
' 連接 Microsoft Access 資料庫
Function HjConnAccess(HjDb_Name)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
HjStrConn=HjStrConn & Server.MapPath(HjDb_Name)
HjConnDb.Open HjStrConn
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function
' 連接 Microsoft Sql Server 資料庫
Function HjConnSql(HjSvr_Name,HjDb_Name,HjDb_Uid,HjDb_Pwd)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=sqloledb; Data Source="
HjStrConn=HjStrConn & HjSvr_Name & "; Initial Catalog="
HjStrConn=HjStrConn & HjDb_Name & "; User id="
HjStrConn=HjStrConn & HjDb_Uid & "; Password="
HjStrConn=HjStrConn & HjDb_Pwd
HjConnDb.Open HjStrConn
' 連接 Microsoft Sql Server 資料庫
' HjConnDb.Open "Driver={SQL Server}; Server=HALEY; Database=YCDB; Uid=sa;Pwd=sa;"
' HjConnDb.Open "Provider=sqloledb;Data Source=HALEY;Initial Catalog=YCDB;User Id=sa;Password=sa;"
' HjConnDb.Open "Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=HALEY;Initial Catalog=YCDB;User Id=sa;Password=sa;"
' HjConnDb.Open "Remote Provider=MS Remote;Remote Server=http://172.24.15.228;Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=HALEY; Initial Catalog=YCDB; User ID=sa;Password=sa;"
' HjConnDb.Open "Remote Provider=MS Remote;Remote Server=http://172.24.15.228;Driver={SQL Server};Server=HALEY; Initial Catalog=YCDB; User ID=sa;Password=sa;"
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function
' 連接 Oracle 資料庫
Function HjConnOra(HjSvr_Name,HjDb_Uid,HjDb_Pwd)
Uid_Pwd=HjDb_Uid & "/" & HjDb_Pwd
set HjDbOraSession=CreateObject("OracleInProcServer.XOraSession")
set HjDbOra=HjDbOraSession.DbOpenDatabase(HjSvr_Name,Uid_Pwd,0)
' 打開記錄集示例
' sql= "select * from table_name"
' Set HjOradynaset=HjDbOra.DbCreateDynaset(sql,0)
End Function
' 連接 Oracle 資料庫 利用Ole Db
Function HjConn_Ora(HjSvr_Name,HjDb_Uid,HjDb_Pwd)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=msdaora; Data Source="
HjStrConn=HjStrConn & HjSvr_Name & "; User Id="
HjStrConn=HjStrConn & HjDb_Uid & "; Password="
HjStrConn=HjStrConn & HjDb_Pwd
HjConnDb.Open HjStrConn
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function
%>
Dim HjConnDb
' 連接 Microsoft Access 資料庫
Function HjConnAccess(HjDb_Name)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
HjStrConn=HjStrConn & Server.MapPath(HjDb_Name)
HjConnDb.Open HjStrConn
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function
' 連接 Microsoft Sql Server 資料庫
Function HjConnSql(HjSvr_Name,HjDb_Name,HjDb_Uid,HjDb_Pwd)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=sqloledb; Data Source="
HjStrConn=HjStrConn & HjSvr_Name & "; Initial Catalog="
HjStrConn=HjStrConn & HjDb_Name & "; User id="
HjStrConn=HjStrConn & HjDb_Uid & "; Password="
HjStrConn=HjStrConn & HjDb_Pwd
HjConnDb.Open HjStrConn
' 連接 Microsoft Sql Server 資料庫
' HjConnDb.Open "Driver={SQL Server}; Server=HALEY; Database=YCDB; Uid=sa;Pwd=sa;"
' HjConnDb.Open "Provider=sqloledb;Data Source=HALEY;Initial Catalog=YCDB;User Id=sa;Password=sa;"
' HjConnDb.Open "Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=HALEY;Initial Catalog=YCDB;User Id=sa;Password=sa;"
' HjConnDb.Open "Remote Provider=MS Remote;Remote Server=http://172.24.15.228;Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=HALEY; Initial Catalog=YCDB; User ID=sa;Password=sa;"
' HjConnDb.Open "Remote Provider=MS Remote;Remote Server=http://172.24.15.228;Driver={SQL Server};Server=HALEY; Initial Catalog=YCDB; User ID=sa;Password=sa;"
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function
' 連接 Oracle 資料庫
Function HjConnOra(HjSvr_Name,HjDb_Uid,HjDb_Pwd)
Uid_Pwd=HjDb_Uid & "/" & HjDb_Pwd
set HjDbOraSession=CreateObject("OracleInProcServer.XOraSession")
set HjDbOra=HjDbOraSession.DbOpenDatabase(HjSvr_Name,Uid_Pwd,0)
' 打開記錄集示例
' sql= "select * from table_name"
' Set HjOradynaset=HjDbOra.DbCreateDynaset(sql,0)
End Function
' 連接 Oracle 資料庫 利用Ole Db
Function HjConn_Ora(HjSvr_Name,HjDb_Uid,HjDb_Pwd)
Set HjConnDb=Server.CreateObject("ADODB.CONNECTION")
HjStrConn="Provider=MSDataShape;Data Provider=msdaora; Data Source="
HjStrConn=HjStrConn & HjSvr_Name & "; User Id="
HjStrConn=HjStrConn & HjDb_Uid & "; Password="
HjStrConn=HjStrConn & HjDb_Pwd
HjConnDb.Open HjStrConn
' 打開記錄集示例
' HjStrSql="select * from table_name"
' Set HjRsDb=Server.CreateObject("ADODB.RECORDSET")
' HjRsDb.Open HjStrSql,HjConnDb
End Function
%>
...全文
相关推荐
ASP Web开发教程,这是一个内容非常丰富的书籍,希望对大家有或多或少的帮助
ASP Web开发教程,这是一个内容非常丰富的书籍,希望对大家有或多或少的帮助
ASP.NET文档管理源码部署与二次开发实战指南
文档管理系统是企业内部知识沉淀与协作的重要载体,其稳定运行依赖严谨的技术架构。理解其核心概念与部署原理,是保障系统可用性的关键。在工程实践中,基于ASP.NET构建的文档管理程序需妥善处理IIS站点配置、SQL Server数据库连接、文件存储权限等基础环节。从环境准备到应用发布,每一个步骤都隐藏着影响系统稳定性的细节。本文以一套经典ASP.NET文档管理源码为例,系统讲解从解压部署、数据库初始化到IIS配置的完整流程,并针对常见问题给出排查思路,同时延伸到二次开发与安全加固建议,帮助开发者快速上手并规避典
ASP脚本语言函数,希望在学习的时候帮助你
详细介绍了ASP 脚本语言的所有函数!希望可以帮助大家的学习!好东西,分享给大家。
精品程序共享,希望大家看了以后能使这程序更加完善
精品程序共享,希望大家看了以后能使这程序更加完善
简单的asp课件,希望对自学的朋友有所帮助
简单的asp课件,希望对自学的朋友有所帮助,一些简单的课件。


