addtable.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 18 行

<%
a=0
Set rstSchema=Conn.OpenSchema(20)
Do Until rstSchema.EOF
if rstSchema(2)="type" then
a=1
end if
rstSchema.MoveNext
Loop
if a=0 then
conn.execute "CREATE TABLE type(id int IDENTITY (1, 1) NOT NULL,name varchar(255))"
conn.execute "CREATE TABLE desktop(id int IDENTITY (1, 1) NOT NULL,jj text,typeid int,minipic varchar(255),[time] datetime)"
conn.execute "insert into type (name) values ('线路类型')"
conn.execute "insert into type (name) values ('文章类型')"
conn.execute "insert into type (name) values ('景点类型')"
else
end if
%>