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

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

2017-11-16 1202
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介：
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
技术小甜
目录
相关文章
云深知何处
|
7天前
|
SQL Oracle 数据库
使用访问指导(SQL Access Advisor)优化数据库业务负载
本文介绍了Oracle的SQL访问指导（SQL Access Advisor）的应用场景及其使用方法。访问指导通过分析给定的工作负载，提供索引、物化视图和分区等方面的优化建议，帮助DBA提升数据库性能。具体步骤包括创建访问指导任务、创建工作负载、连接工作负载至访问指导、设置任务参数、运行访问指导、查看和应用优化建议。访问指导不仅针对单条SQL语句，还能综合考虑多条SQL语句的优化效果，为DBA提供全面的决策支持。
云深知何处
28 11
Apache_Tomcat_Nignx
|
21天前
|
关系型数据库 MySQL Linux
MySQL数据库下载安装教程（Windows&Linux）
本文档详细介绍了MySQL的安装步骤，包括安装前的准备工作、下载安装包、Windows和Linux系统下的具体安装流程，以及如何配置MySQL服务、设置环境变量、启动服务和连接数据库等关键操作。
Apache_Tomcat_Nignx
346 4
Apache_Tomcat_Nignx
|
21天前
|
SQL 关系型数据库 MySQL
MySQL导入.sql文件后数据库乱码问题
本文分析了导入.sql文件后数据库备注出现乱码的原因，包括字符集不匹配、备注内容编码问题及MySQL版本或配置问题，并提供了详细的解决步骤，如检查和统一字符集设置、修改客户端连接方式、检查MySQL配置等，确保导入过程顺利。
Apache_Tomcat_Nignx
70 3
运维有小邓
|
20天前
|
SQL 监控 安全
SQL Servers审核提高数据库安全性
SQL Server审核是一种追踪和审查SQL Server上所有活动的机制，旨在检测潜在威胁和漏洞，监控服务器设置的更改。审核日志记录安全问题和数据泄露的详细信息，帮助管理员追踪数据库中的特定活动，确保数据安全和合规性。SQL Server审核分为服务器级和数据库级，涵盖登录、配置变更和数据操作等事件。审核工具如EventLog Analyzer提供实时监控和即时告警，帮助快速响应安全事件。
运维有小邓
39 1
DatabaseEvangelist
|
1月前
|
SQL 关系型数据库 MySQL
体验使用DAS实现数据库SQL优化，完成任务可得羊羔绒加厚坐垫！
本实验介绍如何通过数据库自治服务DAS对RDS MySQL高可用实例进行SQL优化，包含购买RDS实例并创建数据库、数据导入、生成并优化慢SQL、执行优化后的SQL语句等实验步骤。完成任务，即可领取羊羔绒加厚坐垫，限量500个，先到先得。
DatabaseEvangelist
151 12
三三是该溜子
|
23小时前
|
SQL Java 数据库连接
JDBC编程安装———通过代码操控数据库
本文，教你从0开始学习JBCD，包括驱动包的下载安装调试设置，以及java是如何通过JBDC实现对数据库的操作，以及代码的分析，超级详细
三三是该溜子
8 0
游客54bz4h3flp7ai
|
27天前
|
SQL 存储 BI
gbase 8a 数据库 SQL合并类优化——不同数据统计周期合并为一条SQL语句
gbase 8a 数据库 SQL合并类优化——不同数据统计周期合并为一条SQL语句
游客54bz4h3flp7ai
29 1
游客54bz4h3flp7ai
|
27天前
|
SQL 数据库
gbase 8a 数据库 SQL优化案例-关联顺序优化
gbase 8a 数据库 SQL优化案例-关联顺序优化
游客54bz4h3flp7ai
26 1
游客54bz4h3flp7ai
|
27天前
|
网络安全 数据库
gbase 8a 数据库 安装8ampp 常见ssh报错问题
gbase 8a 数据库 安装8ampp 常见ssh报错问题
游客54bz4h3flp7ai
25 0
游客ny3yjjsyp7iro
|
1月前
|
SQL Java 数据库连接
canal-starter 监听解析 storeValue 不一样，同样的sql 一个在mybatis执行 一个在数据库操作，导致解析不出正确对象
canal-starter 监听解析 storeValue 不一样，同样的sql 一个在mybatis执行 一个在数据库操作，导致解析不出正确对象
游客ny3yjjsyp7iro
44 0

热门文章

最新文章

  • 1
    RDS入门——Excel文件转存到RDS数据库实践
  • 2
    memcached数据库缓存
  • 3
    Oracle传输表空间迁移数据库
  • 4
    adb shell查看sqlite数据库
  • 5
    【Oracle】Oracle 11g 中的自动数据库维护任务管理
  • 6
    thinkphp数据库添加表单提交的数据
  • 7
    C++ 连接数据库的入口和获取列数、数据
  • 8
    10g升级至11g后数据库无法启动的问题解决
  • 9
    PostgreSQL数据库公开课视频及PGCE认证(第2期)(CUUG)(2020年)
  • 10
    centos6.6部署Mongodb数据库主从同步
  • 1
    ASP.NET AJAX使用方法概述（三）
    63
  • 2
    C#/ASP.NET应用程序配置文件app.config/web.config的增、删、改操作
    80
  • 3
    安装ASP.NET AJAX (一安装)
    117
  • 4
    利用Visual Basic构建高效的ASP.NET Web应用
    109
  • 5
    JavaScript云LIS系统源码ASP.NET CORE 3.1 MVC + SQLserver + Redis医院实验室信息系统源码 医院云LIS系统源码
    87
  • 6
    ASP.NET公立医院健康体检信息管理系统源码
    116
  • 7
    ASP.NET三甲医院手术麻醉信息管理系统源码 对接麻醉机、监护仪、血气分析仪
    79
  • 8
    asp.net中条件查询+分页
    72
  • 9
    进入ASP .net mvc的世界
    93
  • 10
    ASP.NET体检中心源码，实现检前、检中、检后全流程管理
    127

    • 相关课程

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

    • 相关电子书

    更多
  • 2022 DTCC-阿里云一站式数据库上云最佳实践
  • 云时代的数据库技术趋势
  • 超大型金融机构国产数据库全面迁移成功实践

    • 相关实验场景

    更多
  • 使用DAS实现数据库SQL优化
  • 一小时快速掌握 SQL 语法
  • 自建数据库迁移到云数据库
  • PolarDB for AI：在数据库中通过SQL实现AI能力
  • 云原生HTAP数据库，让你的交易和分析一库搞定
  • 快速体验PolarDB开源数据库
    • 下一篇
    DataWorks售前咨询