ASP操作Access数据库：创建表、插入数据及下载

<%
ydb="/admin_vtiger/inc_data/#$(&$($#(Q&$#JJIFEJFEKFE)FEMFEL@@!TG.asp"      '数据库文件的位置
Set yconn = Server.CreateObject("ADODB.Connection")
yconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ydb)
set rs=yconn.execute("select * from qy_gbook")


On Error Resume Next '忽略错误
db = "/admin_vtiger/UploadFiles/gbook_list.mdb" '定义数据库路径及名称
set fso=server.createobject("scripting.filesystemobject") '定义fso组件
if fso.fileexists(Server.MapPath(db)) then '如果数据库存在
Set fileMDB=fso.GetFile(Server.MapPath(db))
fileMDB.Delete(true) '删除数据库
end if

Set Catalog_object= Server.CreateObject("ADOX.Catalog") '定义数据库操作组件
Catalog_object.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)) '新建数据库
Set Catalog_object=nothing '释放数据库操作组件

set fso = nothing'释放fso组件
set conn = server.CreateObject("ADODB.Connection")'定义数据库连接组件
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath(db)&""'连接数据库

if err then '如果数据库连接失败
Response.Write "数据库连接失败或数据库不存在"
Response.end()
end if
conn.execute("CREATE TABLE qy_gbook(id int PRIMARY KEY, g_type varchar(50), pcont1 varchar(50), pcont2 varchar(255),content text,username varchar(50),card_num varchar(50),useremail varchar(50),user_phone varchar(50),gmark varchar(200),inputdate date,re_word text,re_date date,user_sj varchar(50),user_rsa varchar(50),user_rs varchar(50),user_md varchar(50),user_sx varchar(50),user_time date)")'新建数据表
while not rs.eof
conn.execute("insert into qy_gbook(id,g_type,pcont1,pcont2,content,username,card_num,useremail,user_phone,gmark,inputdate,re_word,user_sj,user_rsa,user_rs,user_md,user_sx,user_time) values("&rs("id")&",'"&rs("g_type")&"','"&rs("pcont1")&"','"&rs("pcont2")&"','"&rs("content")&"','"&rs("username")&"','"&rs("card_num")&"','"&rs("useremail")&"','"&rs("user_phone")&"','"&rs("gmark")&"',"&rs("inputdate")&",'"&rs("re_word")&"','"&rs("user_sj")&"','"&rs("user_rsa")&"','"&rs("user_rs")&"','"&rs("user_md")&"','"&rs("user_sx")&"',"&rs("user_time")&")")