IDC资讯中心
用asp自动生成sql数据库的安装源程序
作者：一鹤(hjz)_贺建中 cnet中文网_www.yescnet.com
chinaasp论坛完整程序下载：
http://www.yescnet.com/manage.asp?url=down/list.asp**id=89
http://user.7host.com/yescnet/manage.asp?url=down/list.asp**id=90
因为我装的是msde，没有发现查询分析器，也没办法运行sql文件,我到处支找sql的光盘也找不到，苦
恼了好一陈子。只能在导出导入里新建一个数据库(呵呵，发现在ms.net里居然可以编辑查看sql数据
库，虽然也不能运行sql,不过给了我不少方便),就此写了一个asp文件。全自动的生成chinaasp的sql
数据库。
去chinaasp不觉得什么，现在真正解开他的内容一看，真的令人叹服，委实是精品中的精品。难怪这么
多人效仿而乐此不疲。
如果你有查询分析器，这个用一下反正也很方便，如果你没有查询分析器，那是更好了，其中连接sql的
可能是被人改了，不能用，我都改好了。
以后如果写其他的sol数据库，只要打开conn.asp与setup.asp。依样画葫芦就是了，总之自已手写出来的
东西，用得特舒服。
声明：好象chinaasp不提供免费使用的授权，我也不太清楚，这个纯粹是个人研究，不可以真的拿去用了
或改了。
conn.asp文件：
＜%
dim conn
dim connstr
connstr="driver={sql server};server=localhost;uid=sa;pwd=;database=bbsbbs"
set conn=server.createobject("adodb.connection")
if err.number＜＞0 then
err.clear
set conn=nothing
response.write "创建ado对象失败"
response.end
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "sql数据库连接失败，请检查数据库是否存在，以及odbc是否存在"
response.end
end if
end if
sub endconnection()
conn.close
end sub
%＞
setup.asp文件：
＜!–#include file="conn.asp"–＞
＜html＞
＜style type="text/css"＞
＜!–
body{
background: white;
font-family: 宋体;
font-size: 75%
}
–＞
＜/style＞
＜title＞chinaasp安装＜/title＞＜body＞
＜%
if request.querystring("setup") = "yes" then
on error resume next
set adors = server.createobject("adodb.recordset")
strsql = "create table announce ( "
strsql =strsql +"announceid int identity (1, 1) not null ,"
strsql =strsql +"parentid int null , "
strsql =strsql +"child int null , "
strsql =strsql +"boardid int null , "
strsql =strsql +"username nvarchar (50) null , "
strsql =strsql +"useremail nvarchar (255) null , "
strsql =strsql +"url nvarchar (255) null , "
strsql =strsql +"urltitle nvarchar (255) null , "
strsql =strsql +"urlpic nvarchar (255) null , "
strsql =strsql +"topic nvarchar (255) null , "
strsql =strsql +"body ntext null , "
strsql =strsql +"dateandtime datetime null , "
strsql =strsql +"hits int null , "
strsql =strsql +"length int null , "
strsql =strsql +"rootid int null , "
strsql =strsql +"layer int null , "
strsql =strsql +"orders int null , "
strsql =strsql +"emote int null , "
strsql =strsql +"ip nvarchar (20) null , "
strsql =strsql +"signature nvarchar (255) null , "
strsql =strsql +"replymail bit not null "
strsql =strsql +") "
set adors = conn.execute(strsql)
strsql ="create table board ("
strsql =strsql +"boardid int identity (1, 1) not null , "
strsql =strsql +"boardname nvarchar (100) null ,"
strsql =strsql +"boardmaster int null , "
strsql =strsql +"boardmaster2 int null , "
strsql =strsql +"boardmaster3 int null , "
strsql =strsql +"cateid int null , "
strsql =strsql +"description nvarchar (500) null "
strsql =strsql +") "
set adors = conn.execute(strsql)
strsql ="create table boardcate ("
strsql =strsql +"id int identity (1, 1) not null , "
strsql =strsql +"catename nvarchar (50) not null , "
strsql =strsql +"description nvarchar (244) null , "
strsql =strsql +"orders int null "
strsql =strsql +") "
set adors = conn.execute(strsql)
strsql ="create table essence ("
strsql =strsql +"id int identity (1, 1) not null , "
strsql =strsql +"announceid int null , "
strsql =strsql +"boardid int null , "
strsql =strsql +"username nvarchar (50) null , "
strsql =strsql +"useremail nvarchar (255) null , "
strsql =strsql +"url nvarchar (255) null , "
strsql =strsql +"urltitle nvarchar (255) null , "
strsql =strsql +"urlpic nvarchar (255) null , "
strsql =strsql +"topic nvarchar (255) null , "
strsql =strsql +"body ntext null , "
strsql =strsql +"dateandtime nvarchar (50) null , "
strsql =strsql +"hits int null , "
strsql =strsql +"length int null , "
strsql =strsql +"emote int null , "
strsql =strsql +"keywords nvarchar (255) null "
strsql =strsql +") "
set adors = conn.execute(strsql)
strsql ="create table site ( "
strsql =strsql +"sitemasterpwd nvarchar (50) null "
strsql =strsql +") "
set adors = conn.execute(strsql)
strsql ="create table [user] ( "
strsql =strsql +"userid int identity (1, 1) not null , "
strsql =strsql +"username nvarchar (50) null , "
strsql =strsql +"useremail nvarchar (255) null , "
strsql =strsql +"userpassword nvarchar (11) null , "
strsql =strsql +"icq nvarchar (20) null , "
strsql =strsql +"homepage nvarchar (255) null , "
strsql =strsql +"sex nvarchar (10) null , "
strsql =strsql +"passanswer nvarchar (100) null , "
strsql =strsql +"incometime smalldatetime null , "
strsql =strsql +"birthday smalldatetime null , "
strsql =strsql +"points int null , "
strsql =strsql +"visits int null , "
strsql =strsql +"country nvarchar (20) null , "
strsql =strsql +"city nvarchar (20) null , "
strsql =strsql +"passquest nvarchar (100) null , "
strsql =strsql +"signature nvarchar (255) null , "
strsql =strsql +"disabled int null "
strsql =strsql +") "
set adors = conn.execute(strsql)
strsql ="alter table [boardcate] with nocheck add constraint [pk_boardcate] primary key clustered ([id])"
set adors = conn.execute(strsql)
strsql ="alter table [announce] with nocheck add constraint [df__announce__replym__3f466844] default (0) for [replymail],"
strsql =strsql +"constraint [pk_announce] primary key nonclustered ([announceid])"
set adors = conn.execute(strsql)
strsql ="alter table [board] with nocheck add constraint [pk_board] primary key nonclustered ([boardid])"
set adors = conn.execute(strsql)
strsql ="alter table [essence] with nocheck add constraint [pk_essence] primary key nonclustered ([id])"
set adors = conn.execute(strsql)
strsql ="alter table [user] with nocheck add constraint [df_user_disabled] default (0) for [disabled],"
strsql =strsql +"constraint [pk_user] primary key nonclustered ([userid])"
set adors = conn.execute(strsql)
strsql ="create index [boardid] on [announce]([boardid])"
set adors = conn.execute(strsql)
strsql ="create index [announce0] on [announce]([boardid], [announceid], [parentid])"
set adors = conn.execute(strsql)
strsql ="create index [ix_announce] on [announce]([orders])"
set adors = conn.execute(strsql)
strsql ="create index [announce00] on [announce]([rootid], [boardid], [orders])"
set adors = conn.execute(strsql)
strsql ="create index [ix_boardcate] on [boardcate]([orders])"
set adors = conn.execute(strsql)
strsql ="create index [boardid] on [essence]([boardid])"
set adors = conn.execute(strsql)
strsql ="create index [points] on [user]([points])"
set adors = conn.execute(strsql)
strsql ="create index [username] on [dbo].[user]([username])"
set adors = conn.execute(strsql)
strsql ="create index [ix_user] on [dbo].[user]([username])"
set adors = conn.execute(strsql)
strsql ="insert site(sitemasterpwd) values(12345)"
set adors = conn.execute(strsql)
strsql ="alter table announce add lock bit not null default (0)"
set adors = conn.execute(strsql)
%＞
＜p＞ ＜/p＞
＜p＞操作成功，请勿在相同的数据库重复安装, ＜a href="default.asp" target="_blank" ＞请登录论坛＜/a＞＜br＞
＜br＞
＜br＞
＜a href="admin" target="_blank"＞管理密码已为您设置为12345,请登录管理页面＜/a＞ ＜/p＞
＜%
else
response.write("＜a href=setup.asp?setup=yes＞单击此处开始安装＜/a＞＜br＞＜br＞＜br＞＜a href=""http://www.yescnet.com""＞一鹤的chinaasp论坛数据库安装程序＜/a＞ ")
end if
%＞
＜hr＞
＜p align="center"＞＜br＞
＜a href="http://www.yescnet.com" target="_blank" ＞一鹤的chinaasp论坛数据库安装程序＜/a＞ ||
＜a href="http://www.yescnet.com"＞cnet中文网＜/a＞ || ＜a href="http://www.yescnet.com"＞www.yescnet.com＜/a＞＜/p＞
＜/body＞＜/html＞
