asp创建mysql表_创建一个数据库,用ASP怎么写?

最新推荐文章于 2023-12-27 19:22:42 发布
最新推荐文章于 2023-12-27 19:22:42 发布
阅读量115 收藏
点赞数
文章标签： asp创建mysql表
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_33240360/article/details/113375257
版权

展开全部

ASP内用SQL语句创建一个32313133353236313431303231363533e58685e5aeb931333234303737带密码的ACCESS数据库

纯编码实现Access数据库的建立或压缩


'#######以下是一个类文件，下面的注解是调用类的方法################################################


'# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用


'# Access 数据库类


'# CreateDbFile 建立一个Access 数据库文件


'# CompactDatabase 压缩一个Access 数据库文件


'# 建立对象方法:


'# Set a = New DatabaseTools


'# by (萧寒雪) s.f.


'#########################################################################################


Class DatabaseTools


Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)


'建立数据库文件


'If DbVer is 0 Then Create Access97 dbFile


'If DbVer is 1 Then Create Access2000 dbFile


On error resume Next


If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"


If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))


If DbExists(SavePath & dbFileName) Then


Response.Write ("对不起，该数据库已经存在!")


CreateDBfile = False


Else


Dim Ca


Set Ca = Server.CreateObject("ADOX.Catalog")


If Err.number<>0 Then


Response.Write ("无法建立，请检查错误信息


" & Err.number & "


" & Err.Description)


Err.Clear


Exit function


End If


If DbVer=0 Then


call Ca.Create("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName)


Else


call Ca.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SavePath & dbFileName)


End If


Set Ca = Nothing


CreateDBfile = True


End If


End function


Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)


'压缩数据库文件


'0 为access 97


'1 为access 2000


On Error resume next


If Right(SavePath,1)<>"\" Or Right(SavePath,1)<>"/" Then SavePath = Trim(SavePath) & "\"


If Left(dbFileName,1)="\" Or Left(dbFileName,1)="/" Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))


If DbExists(SavePath & dbFileName) Then


Response.Write ("对不起，该数据库已经存在!")


CompactDatabase = False


Else


Dim Cd


Set Cd =Server.CreateObject("JRO.JetEngine")


If Err.number<>0 Then


Response.Write ("无法压缩，请检查错误信息


" & Err.number & "


" & Err.Description)


Err.Clear


Exit function


End If


If DbVer=0 Then


call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.3.51;Data


Source=" & SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")


Else


call Cd.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &


SavePath & dbFileName,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &


SavePath & dbFileName & ".bak.mdb;Jet OLEDB;Encrypt Database=True")


End If


'删除旧的数据库文件


call DeleteFile(SavePath & dbFileName)


'将压缩后的数据库文件还原


call RenameFile(SavePath & dbFileName & ".bak.mdb",SavePath & dbFileName)


Set Cd = False


CompactDatabase = True


End If


end function


Public function DbExists(byVal dbPath)


'查找数据库文件是否存在


On Error resume Next


Dim c


Set c = Server.CreateObject("ADODB.Connection")


c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath


If Err.number<>0 Then


Err.Clear


DbExists = false


else


DbExists = True


End If


set c = nothing


End function


Public function AppPath()


'取当前真实路径


AppPath = Server.MapPath("./")


End function


Public function AppName()


'取当前程序名称


AppName = Mid(Request.ServerVariables("SCRIPT_NAME"),(InStrRev(Request.ServerVariables("SCRIPT_NAME") ,"/",-1,1))+1,Len(Request.ServerVariables("SCRIPT_NAME")))


End Function


Public function DeleteFile(filespec)


'删除一个文件


Dim fso


Set fso = CreateObject("Scripting.FileSystemObject")


If Err.number<>0 Then


Response.Write("删除文件发生错误!请查看错误信息


" & Err.number & "


" & Err.Description)


Err.Clear


DeleteFile = False


End If


call fso.DeleteFile(filespec)


Set fso = Nothing


DeleteFile = True


End function


Public function RenameFile(filespec1,filespec2)


'修改一个文件


Dim fso


Set fso = CreateObject("Scripting.FileSystemObject")


If Err.number<>0 Then


Response.Write("修改文件名时发生错误!请查看错误信息


" & Err.number & "


" & Err.Description)


Err.Clear


RenameFile = False


End If


call fso.CopyFile(filespec1,filespec2,True)


call fso.DeleteFile(filespec1)


Set fso = Nothing


RenameFile = True


End function


End Class


%>


现在已可以压缩有密码的数据库，代码如下，但是压缩之后的数据库密码就没有了！如何解决？


Const JET_3X = 4


Function CompactDB(dbPath, boolIs97)


Dim fso, Engine, strDBPath


strDBPath = left(dbPath,instrrev(DBPath,"\"))


Set fso = CreateObject("Scripting.FileSystemObject")


If fso.FileExists(dbPath) Then


Set Engine = CreateObject("JRO.JetEngine")


If boolIs97 = "True" Then


Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _


"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & strDBPath & "temp.mdb;" _


& "Jet OLEDB:Engine Type=" & JET_3X


Else


Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password='XXXXXXXX';Data Source=" & dbpath, _


"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"


End If


fso.CopyFile strDBPath & "temp.mdb",dbpath


fso.DeleteFile(strDBPath & "temp.mdb")


Set fso = nothing


Set Engine = nothing


CompactDB = "你的数据库, " & dbpath & ", 已经压缩成功!" & vbCrLf


Else


CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf


End If


End Function


%>

本回答由提问者推荐

2Q==

已赞过

已踩过<

你对这个回答的评价是？

评论

收起

神神九十九
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ASP创建数据库，新建数据表、字段
form88的专栏
03-26 5025
ASP创建数据库，新建数据表、字段 在已有数据库中创建表<% set conn=server.CreateObject("adodb.connection") sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") conn.open sql Conn.Execute("create table b
用ASP实现写入数据库的功能
lljs3344的专栏
01-28 978
注册结果body {margin-top: 0px;margin-bottom: 0px;background-image: url();background-repeat: no-repeat;}.STYLE2 { font-size: 50px; font-weight: bold; color: #FF0000;}-->    创建records
用ASP.NET创建数据库
weixin_30648587的博客
08-01 995
小白的第一次使用： 程序员写程序，就好比一个物品的慢慢诞生，我们今天的这个例子就可以想象成一个物品慢慢的在编译的过程中，让我们所看到 一、创建我们所测试的项目 　　1.创建一个简单的带有模型层（Model）和数据访问层（DAL）的控制台应用程序架构。 DAL：数据访问层，实现对数据库的操作控制 Model：模型层，创建表 Text：控制台，进行控制 二、开始创建模型 ...
ASP创建SQL Server数据库的两种方法
【孟子E章】
05-22 3887
ASP创建SQL Server数据库的两种方法方法一： ************ 使用ADODB.Connect对象创建 ************************Dim oConnDim sDatabaseNamesDatabaseName = "CodeCreateDB"Set oConn = Server.CreateObject("ADODB.Connection")oCo
ASP.NET的创建和数据库的连接
pjn20的博客
12-27 1206
context.Response.Write("{\"code\":\"200\",\"msg\":\"老铁，你修改成功！context.Response.Write("{\"code\":\"520\",\"msg\":\"老铁，你修改失败！context.Response.Write("{\"code\":\"200\",\"msg\":\"老铁，你删除成功！context.Response.Write("{\"code\":\"999\",\"msg\":\"老铁，你删除失败！
asp.net core 新建实体模型，创建数据库
net744933700的博客
05-22 940
本文为自学笔记，希望对各位有帮助
如何使用ASP将数据插入数据库
IT与开发人员的地盘
05-22 1845
第1步-获取数据。 例如，为要放入db的每条数据创建一个带有一个输入字段的表单：[html] <form method =“ post” action =“ thisSamePage.asp”> <input type =“ text” name =“ userName”>用户名<br> <input type =“ text” name =“ p...
一个ASP.NET的MYSQL的数据库操作类自己封装的
01-20
* 类说明：对MYSQL数据库的操作类 */ using System; using System.Data; using MySql.Data.MySqlClient; namespace Niunan.BYLW.Utility { /// 对MYSQL数据库的操作类 /// /// public class MYSQLHelper { private...
ASP.NET连接MySql数据库的2个方法及示例
01-20
ASP.NET 是一个强大的Web应用程序开发框架，它允许开发者构建动态网站、Web应用和服务。在本文中，我们将讨论如何在ASP.NET环境中连接到MySQL数据库，主要介绍两种方法：使用MySQL官方组件MySQL Connector/Net以及...
kejian.rar_MYSQL_asp kejian_asp mysql_mysql asp
09-19
【标题】"kejian.rar_MYSQL_asp kejian_asp mysql_mysql asp" 提供了几个关键信息，表明这是一个关于ASP（Active Server Pages）和MySQL数据库结合使用的课件发布系统。"kejian.rar"可能是一个包含该系统源代码或...
一个简单的ASP.NET访问MySql数据库.doc
06-04
通过以上步骤，一个简单的ASP.NET应用就能连接并查询MySQL数据库，展示数据到网页上。这只是一个基础的示例，实际开发中可能还需要处理更多细节，如错误处理、连接池管理、参数化查询等，以确保应用的健壮性和安全性...
asp创建mysql表_asp创建数据库
weixin_29907111的博客
01-21 252
Azure 上部署 ASP.NET Core Web App前言在云计算大行其道的时代，当你要部署一个网站时第一选择肯定是各式各样的云端服务。那么究竟使用什么样的云端服务才能够以最快捷的方式部署一个 ASP.NET Core的网站呢？Azure 的 Web App 服务是个很好的选择。下面我们会通过 Visual Studio 创建一个 ASP.NET...文章技术小能手2017-12-19248...
ASP创建数据库，新建数据表、添加字段的语句代码
qhdzj87的专栏
01-17 664
在已有数据库中创建表 <% set conn=server.CreateObject("adodb.connection") sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") conn.open sql Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime de
2020-10-21
lz471183090的博客
10-21 85
在已有数据库中创建表 <% set conn=server.CreateObject("adodb.connection") sql="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("BOOK.mdb") conn.open sql Conn.Execute("create table bbb(id AUTOINCREMENT(1,1),p_id text(100),ee money,ff datetime defa
用asp创建sql数据库,表
思科网络
04-05 1914
sub create_table_download() on error resume next sql="create table "&data_name&" ( id int identity primary key," & _ "username nvarchar(50) null,"& _ "apps nvarchar(200) null,"& _ "remark nvarchar(255
用asp创建mdb数据库
Bob's Blog
06-11 2775
导读： 　　Option Explicit dim databasename 定义数据库名称 databasename=database.mdb 数据库名称 dim databasepath 定义数据库存放路径 databasepath=Dofficejd21database 数据库绝对路径 dim databasever 定义数据库版本 2000 或者 97 databasev
asp写入mysql数据库_asp 怎么写入数据库
weixin_31026805的博客
02-01 222
想在里面再加一个Enjituanabout字段写入要怎么改">想在里面再加一个Enjituanabout字段写入要怎么改">jituanabout=Request("jituanabout")set rs=server.createobject("adodb.recordset")sql="select * from about"rs.open sql,conn,1,3rs("jitu...
ArcGIS Engine编程初学至精通指南
最新发布
07-23
《ArcGIS Engine开发从入门到精通》是一套全面讲解GIS技术与ArcGIS Engine应用的教程。ArcGIS Engine是由Esri公司推出的强大地理信息系统开发平台，它允许开发者利用.NET、Java等编程语言创建桌面、Web及移动GIS应用程序。本教程旨在帮助初学者和有一定经验的GIS从业者快速掌握ArcGIS Engine的核心技术和实际应用。 1. **GIS基础概念**：我们需要理解什么是GIS（Geographic Information System，地理信息系统），它是如何整合地理位置数据和属性数据，以及如何通过地图进行数据的可视化和分析。 2. **ArcGIS Engine介绍**：ArcGIS Engine是Esri GIS技术栈的一部分，提供了丰富的GIS组件，包括地图显示、图层管理、地理处理工具、查询功能等，用于构建自定义的GIS应用。 3. **开发环境配置**：讲解如何设置开发环境，包括安装ArcGIS Engine SDK，集成开发环境（如Visual Studio）的配置，以及必要的开发工具和库的添加。 4. **基础控件与组件
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值