Question

自动创建数据表出错

我写了一个用户注册系统，当用户提交表单后，自动在数据库中创建一个以用户名为表名的数据库，我写的代码如下：
<!-- #include file = "conn.asp" -->
<%
session("usern")=request("admin_name")
dim strsql,zz
zz=cstr(session("usern"))
strsql = "create table "+zz+"(id counter primary key,admin_name char(20),password char(50),hometown char(50))"
strsql.open conn,1,3 '创建数据表
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from '+zz'"
rs.open sql,conn,1,3
rs.addnew
rs("admin_name")=request("admin _name")
rs("password") = request("password")
rs("hometown") = request("address")
rs.update
rs.close
rs.close
set rs= nothing
response.Write"<script> alert('注册成功！');location.href='login.asp'</script>"
%>

结果却报错说：错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'create table qqqq(id'
/My_boke/admin/admin_addtable.asp, 第 7 行
其中qqqq是我注册用户时的用户名。
请高手指点下，谢谢

Answer 1

strsql = "create table "+zz+"(id int identity primary key,admin_name char(20),password char(50),hometown char(50))"
看看