用asp创建sql数据库,表

sub create_table_download()
on error resume next
sql="create table "&data_name&" ( id int identity primary key," & _
"username nvarchar(50) null,"& _
"apps nvarchar(200) null,"& _
"remark nvarchar(255) null,"& _
"user_ip nvarchar(30) null,"& _
"user_say nvarchar(250) null,"& _
"tim datetime,"& _
"down_num int"& _
")"
response.write joekoe_cms.exec(sql,0)
sql="create table "&data1_name&" ( id int" & _
")"
response.write joekoe_cms.exec(sql,0)
if err then error.clear:call admin_error("数据库执行失败，请检查您是否有数据库执行权限！或者数据库里已经有该数据表！"):exit sub
sql="insert into "&data1_name&" (id) values (0)"
response.write joekoe_cms.exec(sql,0)
call admin_msg("成功建立"&tit_fir&"插件的数据库！","?",1)
end sub