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

简介:
chinaasp论坛完整程序下载:
[url]http://www.yescnet.com/manage.asp?url=down/list.asp[/url]**id=89
[url]http://user.7host.com/yescnet/manage.asp?url=down/list.asp[/url]**id=90
因为我装的是MSDE,没有发现查询分析器,也没办法运行sql文件,我到处支找SQL的光盘也找不到,苦
恼了好一陈子。只能在导出导入里新建一个数据库(呵呵,发现在ms.net里居然可以编辑查看sql数据
库,虽然也不能运行sql,不过给了我不少方便),就此写了一个ASP文件。全自动的生成chinaasp的sql
数据库。</P><P>去chinaasp不觉得什么,现在真正解开他的内容一看,真的令人叹服,委实是精品中的精品。难怪这么
多人效仿而乐此不疲。</P><P>如果你有查询分析器,这个用一下反正也很方便,如果你没有查询分析器,那是更好了,其中连接SQL的
可能是被人改了,不能用,我都改好了。</P><P>以后如果写其他的SOL数据库,只要打开conn.asp与setup.asp。依样画葫芦就是了,总之自已手写出来的
东西,用得特舒服。</P><P>声明:好象chinaasp不提供免费使用的授权,我也不太清楚,这个纯粹是个人研究,不可以真的拿去用了
或改了。</P><P>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 </P><P>sub endConnection()
conn.close
end sub 
%></P><P>setup.asp文件:
<!--#include file="conn.asp"-->
<html>
<STYLE TYPE="text/css">
<!--
body{
BACKGROUND: white;
FONT-FAMILY: 宋体;
FONT-SIZE: 75%
}
-->
</STYLE>
<title>chinaasp安装</title><body>
<%</P><P>If Request.QueryString("setup") = "yes" Then</P><P>on error resume next</P><P>Set adoRS = Server.CreateObject("ADODB.Recordset")</P><P>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)</P><P>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)</P><P>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)</P><P>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)</P><P>strSQL ="CREATE TABLE site ( " 
strSQL =strSQL +"SiteMasterPwd nvarchar (50) NULL " 
strSQL =strSQL +") " 
Set adoRS = Conn.Execute(strSQL)</P><P>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)</P><P>strSQL ="ALTER TABLE [boardCate] WITH NOCHECK ADD CONSTRAINT [PK_boardCate] PRIMARY KEY CLUSTERED ([id])" 
Set adoRS = Conn.Execute(strSQL)</P><P>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)</P><P>strSQL ="ALTER TABLE [board] WITH NOCHECK ADD CONSTRAINT [PK_board] PRIMARY KEY NONCLUSTERED ([BoardID])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="ALTER TABLE [essence] WITH NOCHECK ADD CONSTRAINT [PK_essence] PRIMARY KEY NONCLUSTERED ([id])" 
Set adoRS = Conn.Execute(strSQL)</P><P>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)</P><P>strSQL ="CREATE INDEX [Boardid] ON [Announce]([BoardID])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [announce0] ON [Announce]([BoardID], [AnnounceID], [ParentID])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [IX_Announce] ON [Announce]([orders])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [announce00] ON [Announce]([RootID], [BoardID], [orders])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [IX_boardCate] ON [boardCate]([Orders])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [Boardid] ON [essence]([boardid])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [points] ON [user]([points])" 
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [username] ON [dbo].[user]([UserName])"
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="CREATE INDEX [IX_user] ON [dbo].[user]([UserName])"
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="insert site(sitemasterpwd) values('12345')"
Set adoRS = Conn.Execute(strSQL)</P><P>strSQL ="alter table announce add lock bit NOT NULL DEFAULT (0)"
Set adoRS = Conn.Execute(strSQL)</P><P>%></P><P><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">[url]WWW.YESCNET.COM[/url]</a></p>

</body></html>


















本文转自starger51CTO博客,原文链接: http://blog.51cto.com/starger/20041,如需转载请自行联系原作者

相关文章
|
6天前
|
存储 SQL 数据库
数据库sql语句-----游标和存储过程
数据库sql语句-----游标和存储过程
14 1
|
2天前
|
SQL Oracle 关系型数据库
一些SQL数据库工具的介绍
【5月更文挑战第19天】一些SQL数据库工具的介绍
14 4
|
4天前
|
SQL 关系型数据库 MySQL
实时计算 Flink版产品使用合集之当 SQL Server 源数据库中的数据更新后,CDC 吐出的操作(op)是怎样的
实时计算Flink版作为一种强大的流处理和批处理统一的计算框架,广泛应用于各种需要实时数据处理和分析的场景。实时计算Flink版通常结合SQL接口、DataStream API、以及与上下游数据源和存储系统的丰富连接器,提供了一套全面的解决方案,以应对各种实时计算需求。其低延迟、高吞吐、容错性强的特点,使其成为众多企业和组织实时数据处理首选的技术平台。以下是实时计算Flink版的一些典型使用合集。
15 0
|
6天前
|
SQL 关系型数据库 数据管理
Microsoft SQL Server 是微软公司开发的一款关系型数据库管理系统
【5月更文挑战第14天】Microsoft SQL Server 是微软公司开发的一款关系型数据库管理系统
16 2
|
6天前
|
算法 数据库 Docker
大模型必备向量数据库-Milvus的安装过程
大模型必备向量数据库-Milvus的安装过程
16 0
|
6天前
|
SQL Oracle 关系型数据库
实验一 安装和使用Oracle数据库
实验一 安装和使用Oracle数据库
16 1
|
6天前
|
数据库 数据库管理 关系型数据库
|
6天前
|
SQL 数据库
数据库SQL语言实战(六)
本次实战的重点就在于对表格本身的一些处理,包括复制表格、修改表格结构、修改表格数据
|
6天前
|
SQL Oracle 关系型数据库
数据库SQL语言实战(五)(数据库系统概念第三章练习题)
本文的SQL语言适用的是Oracle数据库与mySQL可能存在略微不同
|
6天前
|
SQL Oracle 关系型数据库
数据库SQL语言实战(四)(数据库系统概念第三章练习题)
本文的SQL语言适用的是Oracle数据库与mySQL可能存在略微不同
数据库SQL语言实战(四)(数据库系统概念第三章练习题)