AI 助理
备案控制台
开发者社区 数据库 文章 正文

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

2017-11-16 1193
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：
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，如需转载请自行联系原作者

文章标签：
SQL
数据库
.NET
前端开发
数据安全/隐私保护
数据库连接
开发框架
关键词：
数据库sql
SQL数据库
数据库安装
ASP数据库
ASP SQL
技术小甜
目录
相关文章
hju6meadphitw
|
14天前
|
SQL 开发框架 .NET
ASP.NET连接SQL数据库：详细步骤与最佳实践指南ali01n.xinmi1009fan.com
随着Web开发技术的不断进步，ASP.NET已成为一种非常流行的Web应用程序开发框架。在ASP.NET项目中，我们经常需要与数据库进行交互，特别是SQL数据库。本文将详细介绍如何在ASP.NET项目中连接SQL数据库，并提供最佳实践指南以确保开发过程的稳定性和效率。一、准备工作在开始之前，请确保您
hju6meadphitw
83 3
小Tomkk
|
9天前
|
SQL Oracle 关系型数据库
安装最新 MySQL 8.0 数据库（教学用）
安装最新 MySQL 8.0 数据库（教学用）
小Tomkk
54 4
众所周知
|
12天前
|
关系型数据库 MySQL Linux
在 CentOS 7 中通过编译源码方式安装 MySQL 数据库的详细步骤
本文介绍了在 CentOS 7 中通过编译源码方式安装 MySQL 数据库的详细步骤，包括准备工作、下载源码、编译安装、配置服务等，并与使用 RPM 包安装进行了对比，帮助读者根据需求选择合适的方法。编译源码安装虽然复杂，但提供了更高的定制性和灵活性。
众所周知
113 2
1100237741946300
|
14天前
|
SQL 监控 数据库
慢SQL对数据库写入性能的影响及优化技巧
在数据库管理系统中，慢SQL（即执行缓慢的SQL语句）不仅会影响查询性能，还可能对数据库的写入性能产生显著的不利影响
1100237741946300
58 5
1100237741946300
|
14天前
|
SQL 数据库 数据库管理
数据库SQL函数应用技巧与方法
在数据库管理中，SQL函数是处理和分析数据的强大工具
1100237741946300
22 5
龙大吉
|
14天前
|
关系型数据库 MySQL Linux
在 CentOS 7 中通过编译源码方式安装 MySQL 数据库的详细步骤
【10月更文挑战第7天】本文介绍了在 CentOS 7 中通过编译源码方式安装 MySQL 数据库的详细步骤，包括准备工作、下载源码、编译安装、配置 MySQL 服务、登录设置等。同时，文章还对比了编译源码安装与使用 RPM 包安装的优缺点，帮助读者根据自身需求选择合适的方法。
龙大吉
27 3
1100237741946300
|
14天前
|
SQL 网络安全 数据库
机房电脑下载并安装SQL Server的详细步骤
在机房电脑上下载并安装SQL Server是一个常见的任务，特别是对于学习数据库管理或进行相关项目开发的学生和开发者来说
1100237741946300
21 4
游客g6r3tt6lma5xg
|
3天前
|
SQL 数据库
SQL数据库基础语法入门
[link](http://www.vvo.net.cn/post/082935.html)
游客g6r3tt6lma5xg
17 0
小王老师呀
|
13天前
|
安全 Linux 数据库连接
CentOS 7环境下DM8数据库的安装与配置
【10月更文挑战第16天】本文介绍了在 CentOS 7 环境下安装与配置达梦数据库（DM8）的详细步骤，包括安装前准备、创建安装用户、上传安装文件、解压并运行安装程序、初始化数据库实例、配置环境变量、启动数据库服务、配置数据库连接和参数、备份与恢复、以及安装后的安全设置、性能优化和定期维护等内容。通过这些步骤，可以顺利完成 DM8 的安装与配置。
小王老师呀
80 0
1100237741946300
|
14天前
|
SQL 存储 监控
串口调试助手连接SQL数据库的技巧与方法
串口调试助手是电子工程师和软件开发人员常用的工具，它能够帮助用户进行串口通信的调试和数据分析
1100237741946300
11 0

热门文章

最新文章

  • 1
    RDS for SQL server 空间问题排查汇总
  • 2
    SQL之收集SQL Server线程等待信息
  • 3
    用脚本定时监控SQL Server主从一致性
  • 4
    sql excel 互导
  • 5
    一步一步学Linq to sql(一)：预备知识
  • 6
    SQL语句快速介绍
  • 7
    逆向路由器固件之SQL注入 Part3
  • 8
    SQL Server 2008 R2 死锁监控
  • 9
    SQL Server 2005合并列成字符串 2008-11-07
  • 10
    [SQL Server]一次执行资料夹内的.sql 指令码
  • 1
    利用Visual Basic构建高效的ASP.NET Web应用
    95
  • 2
    JavaScript云LIS系统源码ASP.NET CORE 3.1 MVC + SQLserver + Redis医院实验室信息系统源码 医院云LIS系统源码
    74
  • 3
    ASP.NET公立医院健康体检信息管理系统源码
    98
  • 4
    ASP.NET三甲医院手术麻醉信息管理系统源码 对接麻醉机、监护仪、血气分析仪
    64
  • 5
    asp.net中条件查询+分页
    59
  • 6
    进入ASP .net mvc的世界
    82
  • 7
    ASP.NET体检中心源码，实现检前、检中、检后全流程管理
    107
  • 8
    C# .NET面试系列七：ASP.NET Core
    352
  • 9
    C# .NET面试系列六：ASP.NET MVC
    308
  • 10
    ASP.NET云LIS区域检验云SaaS平台源码
    93

    • 相关课程

    更多
  • 数据库的前世今生
  • 数据库核心概念
  • 从传统数据库到云数据库演进
  • 数据库常见问题排查
  • 数据库及SQL/MySQL基础
  • 高校精品课-西安交通大学 -数据库理论与技术

    • 相关电子书

    更多
  • DTCC 2022大会集锦《云原生一站式数据库技术与实践》
  • 阿里云瑶池数据库精要2022版
  • 2022 DTCC-阿里云一站式数据库上云最佳实践

    • 相关实验场景

    更多
  • 数据库实验室挑战任务-高级任务
  • 数据库实验室挑战任务-中级任务
  • 数据库实验室挑战任务-初级任务
  • 阿里云数据库产品实验室
  • SQL的增删改查及函数应用
  • MongoDB数据库入门
    • 下一篇
    AI助理直击要害，从繁复中提炼精华——使用CDN加速访问OSS存储的图片