% dim conn,db dim connstr db="admin/Databases/#asp99_demo.mdb" '数据库文件位置 on error resume next connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") if err then err.clear else conn.open connstr end if sub CloseConn() conn.close set conn=nothing end sub %>
![]() |
|
||||||||||||
| ©2007北京恒业世纪科技股份有限公司 版权所有 京ICP备050288889号 电话:010-67218877 传真:010-67282879 电子邮箱:hy5000@hy5000.com |
《恒业人》 |人力资源| 信息反馈 | 联系我们 | 合作伙伴 |