ASP+ACC,跪求通过一个网页插入一个数据库表的代码

ASP+ACC,跪求通过一个网页插入一个数据库表的代码

代码如下
<%
dim conn
dim connstr
dim db
db="db.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
%>
<%
set rs=server.createobject("adodb.recordset")
TableName=request.Form("xxx") '代表你的文本框ID
sql="CREATE TABLE "&TableName&" (ID int(4) NOT NULL,Title char(10))，...."
conn.Execute(sql)

'...代表的是你需要添加的字段值这里不知道你需要添加的字段
%>参考资料：ASP ACCESS

<%
a=request("b")
If a="" then
%>

表的名称:

<%
else
set rs=server.createobject("adodb.recordset")
sql="create table ["&a&"]"
rs.open sql,conn,1,3
response.write " "&a&" 表已经创建"
end if
%>

跟帖 等答案！
偶也想知道！~