ASP网页编程之纯编码完成数据库的创建或紧缩

使用cdonts，可以发送、查看邮件，实现webmail的功能。结合wsh，可以实现对nt主机的管理，如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等，就像管理本地机一样方便。编码|数据|数据库|紧缩<%
#######以下是一个类文件，上面的注解是挪用类的办法########################
#注重：假如体系不撑持创建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("没法创建，请反省毛病信息<br>"&Err.number&"<br>"&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("没法紧缩，请反省毛病信息<br>"&Err.number&"<br>"&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;DataSource="&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.number0Then
Response.Write("删除文件产生毛病!请检察毛病信息<br>"&Err.number&"<br>"&Err.Description)
Err.Clear
DeleteFile=False
EndIf
callfso.DeleteFile(filespec)
Setfso=Nothing
DeleteFile=True
En</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码

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

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

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

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

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

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

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

仓酷云

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。