在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000201 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

asp编码的转换

超漂亮后台完善企业代码V5.0

№ → 发布几个经典的ASP源码

利用asp连接远端Oracle数据库方法!

用ASP生成BMP图片

ASP与存储过程

ASP中对FoxPro自由表(DBF文件)的操作

优化asp数据访问代码

[原创]:DW+ASP.Net实战(五):留言板演示--大结局

[原创]:DW+ASP.Net实战(四):开发中应注意的一些小技巧
发表文章
在线建库

作者:程式浪人     提交人:程式浪人     发布时间:03-05-22     文章类型:原创     浏览量:1813
参考链结:http://    
关键字:自建类|ASP|在线建库
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000201]

<%
on error resume next
class createdb
'
'
'建立一个数据库
'用法:
'dim cdb
'set cdb=new createdb
'cdb.setdbname=数据库名
'if cdb.ifok then response.end 数据库已经存在
'cdb.run
'检查是否运行成功
'if cdb.ifok then
'response.write cdb.errs
'end if

private dbname '数据库名字
private ifsure '用来保存是否成功的标志,如果成功值为false,失败为true,初值为true
private errstr '保存说明错误的文字

'获取ifsure值
property get ifok()
  ifok=ifsure
end property

'获取errstr值
property get errs()
  errs=errstr
end property

'
private sub class_initialize()
  '设置ifsure,errstr的初值
  ifsure=true
  errstr="在线建库" 
end sub

'设置数据库名
property let setdbname(byval dbn)

  dbname=dbn
'检查数据库是否已经存在
  ifexistdb dbn

end property

public sub run()

'
class_initialize
'检查数据库名是否为空
if isnull(dbname) or isempty(dbname) or cstr(dbname)="" then
  errstr="建立数据库失败,数据库名不能为空"
  ifsure=true
  exit sub
end if

'这句不能放在ifexistdb里,也不能随后执行,因为找不到数据库后自动退出这个类,
'可能是太严重的错误吧,所以只能在另一个地方清理错误码了
err.clear

dim objcreate '保存ADOX.CATALOG对象

set objcreate=Server.CreateObject("adox.catalog")
if err.number<>0 then
  errstr="建立adox.catalog对象失败,请检查你的用户权限。"+err.description
  set objcreate=nothing
  ifsure=true
  exit sub
end if

'建立数据库
objcreate.create("data source="+server.mappath(dbname)+";provider=microsoft.jet.oledb.4.0")
if err.number<>0 then
  errstr="建立数据库失败。<br>"+err.description
  ifsure=true
  set objcreate=nothing
  exit sub
end if
'如果没有出错,设置成功标志
ifsure=false

end  sub



private sub ifexistdb(byval dbn)
'还原类状态
ifsure=false
'如果数据库存在,就设为true,因为如果不存在的话就不能继续执行这个类
'检查数据库是否已经存在
dim conn
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="+server.mappath(dbn)
conn.open
if err.number=0 then
  errstr="数据库已经存在"
  ifsure=true
  conn.close
  set conn=nothing
end if


end sub

end class
%>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
46.875