社区 › ASP网页编程 › ASP网页编程之全能数据库毗连程序-1

山那边是海 发表于 2015-1-16 22:10:14

ASP网页编程之全能数据库毗连程序-1

ASP是依赖组件的，能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊！程序|数据|数据库|数据库毗连上面这部分程序可说是全能的数据库毗连程序几近能够毗连一切的MS数据库。
<%
---------------------------------------------------
FunctionGetMdbConnection(FileName)
DimProvider,DBPath

Provider="Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath="DataSource="&Server.MapPath(FileName)
SetGetMdbConnection=GetConnection(Provider&DBPath)
EndFunction

---------------------------------------------------
FunctionGetSecuredMdbConnection(FileName,Password)
DimProvider,DBPath

Provider="Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath="DataSource="&Server.MapPath(FileName)
SetGetSecuredMdbConnection=GetConnection(Provider&DBPath&";JetOLEDB:DatabasePassword="&Password)
EndFunction

---------------------------------------------------
FunctionGetDbcConnection(FileName)
DimDriver,SourceType,DBPath

Driver="Driver={MicrosoftVisualFoxProDriver};"
SourceType="SourceType=DBC;"
DBPath="SourceDB="&Server.MapPath(FileName)
SetGetDbcConnection=GetConnection(Driver&SourceType&DBPath)
EndFunction

---------------------------------------------------
FunctionGetDbfConnection(Directory)
DimDriver,SourceType,DBPath

Driver="Driver={MicrosoftVisualFoxProDriver};"
SourceType="SourceType=DBF;"
DBPath="SourceDB="&Server.MapPath(Directory)
SetGetDbfConnection=GetConnection(Driver&SourceType&DBPath)
EndFunction

---------------------------------------------------
FunctionGetExcelConnection(FileName)
DimDriver,DBPath

Driver="Driver={MicrosoftExcelDriver(*.xls)};"
DBPath="DBQ="&Server.MapPath(FileName)
SetGetExcelConnection=GetConnection(Driver&"ReadOnly=0;"&DBPath)
EndFunction

---------------------------------------------------
FunctionGetTextConnection(Directory)
DimDriver,DBPath

Driver="Driver={MicrosoftTextDriver(*.txt;*.csv)};"
DBPath="DBQ="&Server.MapPath(Directory)
SetGetTextConnection=GetConnection(Driver&DBPath)
EndFunction

---------------------------------------------------
FunctionGetSQLServerConnection(Computer,UserID,Password,Db)
DimParams,conn

SetGetSQLServerConnection=Nothing
Params="Provider=SQLOLEDB.1"
Params=Params&";DataSource="&Computer
Params=Params&";UserID="&UserID
Params=Params&";Password="&Password
Params=Params&";InitialCatalog="&Db
Setconn=Server.CreateObject("ADODB.Connection")
conn.OpenParams
SetGetSQLServerConnection=conn
EndFunction

---------------------------------------------------
FunctionGetMdbRecordset(FileName,Source)
SetGetMdbRecordset=GetMdbRs(FileName,Source,2,"")
EndFunction

---------------------------------------------------
FunctionGetMdbStaticRecordset(FileName,Source)
SetGetMdbStaticRecordset=GetMdbRs(FileName,Source,3,"")
EndFunction

---------------------------------------------------
FunctionGetSecuredMdbRecordset(FileName,Source,Password)
SetGetSecuredMdbRecordset=GetMdbRs(FileName,Source,2,Password)
EndFunction

---------------------------------------------------
FunctionGetSecuredMdbStaticRecordset(FileName,Source,Password)
SetGetSecuredMdbStaticRecordset=GetMdbRs(FileName,Source,3,Password)
EndFunction

---------------------------------------------------
FunctionGetDbfRecordset(Directory,SQL)
SetGetDbfRecordset=GetOtherRs("Dbf",Directory,SQL,2)
EndFunction

---------------------------------------------------
FunctionGetDbfStaticRecordset(Directory,SQL)
SetGetDbfStaticRecordset=GetOtherRs("Dbf",Directory,SQL,3)
EndFunction

---------------------------------------------------
FunctionGetDbcRecordset(FileName,SQL)
SetGetDbcRecordset=GetOtherRs("Dbc",FileName,SQL,2)
EndFunction

---------------------------------------------------
FunctionGetDbcStaticRecordset(FileName,SQL)
SetGetDbcStaticRecordset=GetOtherRs("Dbc",FileName,SQL,3)
EndFunction专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。

飘飘悠悠 发表于 2015-1-25 16:42:45

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

活着的死人 发表于 2015-2-3 11:19:21

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

谁可相欹 发表于 2015-2-8 20:31:30

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

金色的骷髅 发表于 2015-2-26 06:42:39

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

只想知道 发表于 2015-3-8 12:34:11

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

爱飞 发表于 2015-3-16 00:41:06

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

再见西城 发表于 2015-3-22 18:11:48

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

查看完整版本: ASP网页编程之全能数据库毗连程序-1