ASP网站制作之在线建库

减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。在线<%
onerrorresumenext
classcreatedb


创建一个数据库
用法：
dimcdb
setcdb=newcreatedb
cdb.setdbname=数据库名
ifcdb.ifokthenresponse.end数据库已存在
cdb.run
反省是不是运转乐成
ifcdb.ifokthen
response.writecdb.errs
endif

privatedbname数据库名字
privateifsure用来保留是不是乐成的标记，假如乐成值为false，失利为true,初值为true
privateerrstr保留申明毛病的笔墨

猎取ifsure值
propertygetifok()
ifok=ifsure
endproperty

猎取errstr值
propertygeterrs()
errs=errstr
endproperty


privatesubclass_initialize()
设置ifsure,errstr的初值
ifsure=true
errstr="在线建库"
endsub

设置数据库名
propertyletsetdbname(byvaldbn)

dbname=dbn
反省数据库是不是已存在
ifexistdbdbn

endproperty

publicsubrun()


class_initialize
反省数据库名是不是为空
ifisnull(dbname)orisempty(dbname)orcstr(dbname)=""then
errstr="创建数据库失利，数据库名不克不及为空"
ifsure=true
exitsub
endif

这句不克不及放在ifexistdb里，也不克不及随后实行，由于找不到数据库后主动加入这个类，
多是太严峻的毛病吧，以是只能在另外一个中央清算毛病码了
err.clear

dimobjcreate保留ADOX.CATALOG工具

setobjcreate=Server.CreateObject("adox.catalog")
iferr.number0then
errstr="创建adox.catalog工具失利，请反省你的用户权限。"+err.description
setobjcreate=nothing
ifsure=true
exitsub
endif

创建数据库
objcreate.create("datasource="+server.mappath(dbname)+";provider=microsoft.jet.oledb.4.0")
iferr.number0then
errstr="创建数据库失利。<br>"+err.description
ifsure=true
setobjcreate=nothing
exitsub
endif
假如没有堕落，设置乐成标记
ifsure=false

endsub



privatesubifexistdb(byvaldbn)
复原类形态
ifsure=false
假如数据库存在，就设为true，由于假如不存在的话就不克不及持续实行这个类
反省数据库是不是已存在
dimconn
setconn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;datasource="+server.mappath(dbn)
conn.open
iferr.number=0then
errstr="数据库已存在"
ifsure=true
conn.close
setconn=nothing
endif


endsub

endclass
%>
</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了

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

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

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

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

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

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

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write