<% option explicit dim databasename '定义数据库名称 databasename="cnbruce.mdb" '数据库名称 dim databasepath '定义数据库存放路径 databasepath="e:\cnbruce\database\" '数据库绝对路径 dim databasever '定义数据库版本 2000 或者 97 databasever = "2000" function createdfile(filepath,filename,ver) dim cnbruce,dbver select case ver case "97" dbver = "3.51" case "2000" dbver = "4.0" end select if dbver <> "" then set cnbruce = server.createobject("adox.catalog") call cnbruce.create("provider=microsoft.jet.oledb." & dbver & ";data source=" & filepath & filename) end if end function call createdfile(databasepath,databasename,databasever) '创建数据库 %> |
<% db_path = "cnbruce.mdb" set conn= server.createobject("adodb.connection") connstr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db_path) conn.open connstr %> |
<!--#include file="conn.asp" --> <% set rs = server.createobject ("adodb.recordset") sql = "create table aboutme (id integer primary key,name text,birthday datetime)" rs.open sql,conn,2,3 %> 数据库表文件建立完毕。 |
如对本文有疑问, 点击进行留言回复!!
asp中Request.ServerVariables的参数集合
网友评论