仓酷云

标题: ASP网页设计纯编码完成Access数据库的创建或紧缩!!... [打印本页]

作者: 因胸联盟 时间: 2015-1-16 22:59
标题: ASP网页设计纯编码完成Access数据库的创建或紧缩!!...
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。access|编码|数据|数据库|紧缩纯编码完成Access数据库的创建或紧缩!!

<%
#######以下是一个类文件，上面的注解是挪用类的办法################################################
#注重：假如体系不撑持创建Scripting.FileSystemObject工具，那末数据库紧缩功效将没法利用
#Access数据库类
#CreateDbFile创建一个Access数据库文件
#CompactDatabase紧缩一个Access数据库文件
#创建工具办法:
#Seta=NewDatabaseTools
#by(萧冷雪)s.f.
#########################################################################################

ClassDatabaseTools

PublicfunctionCreateDBfile(byValdbFileName,byValDbVer,byValSavePath)
创建数据库文件
IfDbVeris0ThenCreateAccess97dbFile
IfDbVeris1ThenCreateAccess2000dbFile
OnerrorresumeNext
IfRight(SavePath,1)""OrRight(SavePath,1)"/"ThenSavePath=Trim(SavePath)&""
IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))
IfDbExists(SavePath&dbFileName)Then
Response.Write("对不起，该数据库已存在!")
CreateDBfile=False
Else
DimCa
SetCa=Server.CreateObject("ADOX.Catalog")
IfErr.number0Then
Response.Write("没法创建，请反省毛病信息 "&Err.number&" "&Err.Description)
Err.Clear
Exitfunction
EndIf
IfDbVer=0Then
callCa.Create("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName)
Else
callCa.Create("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&SavePath&dbFileName)
EndIf
SetCa=Nothing
CreateDBfile=True
EndIf
Endfunction

PublicfunctionCompactDatabase(byValdbFileName,byValDbVer,byValSavePath)
紧缩数据库文件
0为access97
1为access2000
OnErrorresumenext
IfRight(SavePath,1)""OrRight(SavePath,1)"/"ThenSavePath=Trim(SavePath)&""
IfLeft(dbFileName,1)=""OrLeft(dbFileName,1)="/"ThendbFileName=Trim(Mid(dbFileName,2,Len(dbFileName)))
IfDbExists(SavePath&dbFileName)Then
Response.Write("对不起，该数据库已存在!")
CompactDatabase=False
Else
DimCd
SetCd=Server.CreateObject("JRO.JetEngine")
IfErr.number0Then
Response.Write("没法紧缩，请反省毛病信息 "&Err.number&" "&Err.Description)
Err.Clear
Exitfunction
EndIf
IfDbVer=0Then
callCd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;DataSource="&SavePath&dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data
Source="&SavePath&dbFileName&".bak.mdb;JetOLEDB;EncryptDatabase=True")
Else
callCd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&
SavePath&dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&
SavePath&dbFileName&".bak.mdb;JetOLEDB;EncryptDatabase=True")
EndIf
删除旧的数据库文件
callDeleteFile(SavePath&dbFileName)
将紧缩后的数据库文件复原
callRenameFile(SavePath&dbFileName&".bak.mdb",SavePath&dbFileName)
SetCd=False
CompactDatabase=True
EndIf
endfunction

PublicfunctionDbExists(byValdbPath)
查找数据库文件是不是存在
OnErrorresumeNext
Dimc
Setc=Server.CreateObject("ADODB.Connection")
c.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbPath
IfErr.number0Then
Err.Clear
DbExists=false
else
DbExists=True
EndIf
setc=nothing
Endfunction

PublicfunctionAppPath()
取以后实在路径
AppPath=Server.MapPath("./")
Endfunction

PublicfunctionAppName()
取以后程序称号
AppName=Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME"),"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))
EndFunction

PublicfunctionDeleteFile(filespec)
删除一个文件
Dimfso
Setfso=CreateObject("Scripting.FileSystemObject")
IfErr.numbeASP脚本是采用明文（plaintext）方式来编写的。

作者: 爱飞 时间: 2015-1-18 15:47
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

作者: 若相依 时间: 2015-1-19 16:18
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 精灵巫婆 时间: 2015-1-23 23:27
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 山那边是海 时间: 2015-1-25 21:22
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 柔情似水 时间: 2015-2-4 02:07
Session:这个存储跟客户端会话过程的数据，默认20分钟失效

作者: 金色的骷髅 时间: 2015-2-9 10:45
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 冷月葬花魂 时间: 2015-2-27 05:38
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 深爱那片海 时间: 2015-3-8 22:35
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

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

作者: admin 时间: 2015-3-22 23:23
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

欢迎光临仓酷云 (http://ckuyun.com/)