分享
 
 
 

用ASP自动生成SQL数据库的安装源程序

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

用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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有