海妖 发表于 2015-1-16 23:08:56

ASP网页设计全能的数据库毗连程序

缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。程序|数据|数据库|数据库毗连我历来就不必DNS毗连,我以为谁人很不便利,上面这部分程序可说是全能的数据库毗连程序几近能够毗连一切的MS数据库,本人拿往研讨吧(这个程序是“ASP网页制造教程”这本书内里的――一本好书):
<%
---------------------------------------------------
FunctionGetMdbConnection(FileName)
DimProvider,DBPathProvider="Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath="DataSource="&Server.MapPath(FileName)
SetGetMdbConnection=GetConnection(Provider&DBPath)
EndFunction---------------------------------------------------
FunctionGetSecuredMdbConnection(FileName,Password)
DimProvider,DBPathProvider="Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath="DataSource="&Server.MapPath(FileName)
SetGetSecuredMdbConnection=GetConnection(Provider&DBPath&";JetOLEDB:DatabasePassword="&Password)
EndFunction---------------------------------------------------
FunctionGetDbcConnection(FileName)
DimDriver,SourceType,DBPathDriver="Driver={MicrosoftVisualFoxProDriver};"
SourceType="SourceType=DBC;"
DBPath="SourceDB="&Server.MapPath(FileName)
SetGetDbcConnection=GetConnection(Driver&SourceType&DBPath)
EndFunction---------------------------------------------------
FunctionGetDbfConnection(Directory)
DimDriver,SourceType,DBPathDriver="Driver={MicrosoftVisualFoxProDriver};"
SourceType="SourceType=DBF;"
DBPath="SourceDB="&Server.MapPath(Directory)
SetGetDbfConnection=GetConnection(Driver&SourceType&DBPath)
EndFunction---------------------------------------------------
FunctionGetExcelConnection(FileName)
DimDriver,DBPathDriver="Driver={MicrosoftExcelDriver(*.xls)};"
DBPath="DBQ="&Server.MapPath(FileName)
SetGetExcelConnection=GetConnection(Driver&"ReadOnly=0;"&DBPath)
EndFunction---------------------------------------------------
FunctionGetTextConnection(Directory)
DimDriver,DBPathDriver="Driver={MicrosoftTextDriver(*.txt;*.csv)};"
DBPath="DBQ="&Server.MapPath(Directory)
SetGetTextConnection=GetConnection(Driver&DBPath)
EndFunction---------------------------------------------------
FunctionGetSQLServerConnection(Computer,UserID,Password,Db)
DimParams,connSetGetSQLServerConnection=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---------------------------------------------------
FunctionGetExcelRecordset(FileName,SQL)</p>asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了!

精灵巫婆 发表于 2015-1-19 12:33:08

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

深爱那片海 发表于 2015-1-24 12:39:59

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

admin 发表于 2015-1-25 16:38:42

ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。

海妖 发表于 2015-2-3 10:00:44

以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

莫相离 发表于 2015-2-8 20:05:38

跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组

分手快乐 发表于 2015-2-26 03:08:33

我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.

飘灵儿 发表于 2015-3-8 11:33:15

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

若相依 发表于 2015-3-15 22:21:02

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
页: [1]
查看完整版本: ASP网页设计全能的数据库毗连程序