<%
************ 使用ADODB.Connect对象创建 ************************
Dim oConn
Dim sDatabaseName
sDatabaseName = "CodeCreateDB"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
oConn.Execute "CREATE DATABASE " & sDatabaseName
%>
方法二:
<%@ Language=VBScript %>
<%
******************* 使用 SQLDMO Object 对象库 *******************
Dim oSQLServer
Dim oDatabase
Dim oDBFileData
Dim oLogFile
Dim sDatabaseName
Dim sDatapath
数据库名字
sDatabaseName = "CodeCreateDBTest"
数据文件保存路径
sDatapath = "D:\"
创建Sql Server对象并进行链接,(local)处为Server名字
Set oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True 使用集成验证integrated security
oSQLServer.Connect "(local)"
oSQLServer.Connect "(local)", "sa", "" 使用标准验证 standard security
创建Database对象
Set oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
创建db文件对象
Set oDBFileData = Server.CreateObject("SQLDMO.DBFile")
With oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "\" & sDatabaseName & "_data.mdf"
.PrimaryFile = True
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
End With
创建日志文件对象
Set oLogFile = Server.CreateObject("SQLDMO.LogFile")
With oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "\" & sDatabaseName & "_log.ldf"
End With
把DB文件对象和日志文件对象添加到DataBase数据库对象
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile
把数据库添加到Sql server(create the database)
oSQLServer.Databases.Add oDatabase
关闭连接
oSQLServer.Close
释放对象
Set oLogFile = Nothing
Set oDBFileData = Nothing
Set oDatabase = Nothing
Set oSQLServer = Nothing
%>
转自:动态网制作指南 www.knowsky.com
各种上载方法横向比较结果:
服务器要求 浏览器要求 上传文件限制 上传时有无进度条 其他
SA-FileUp 安装组件 - 支持大文件,无限制 有进度条 需要有服务器控制权
AspUpload 安装组件 - 支持大文件,无限制 有进度条 需要有服务器控制权
lyfUpload 安装组件 - 支持大文件,无限制 无 需要有服务器控制权
化境无组件上传 - - 与IIS设置相关,
IIS默认设置最大200KB 无 通用,
适用小文件上载
无惧无组件上传 - - 与IIS设置相关,
IIS默认设置最大200KB 无 通用,
适用小文件上载
先锋无组件上传 - - 与IIS设置相关,
IIS默认设置最大200KB 无 通用,
适用小文件上载
XUploadFiles - 安装组件 支持大文件,无限制 有进度条 租用空间,
而需要上载大文件
纵横HTTP文件
上传组件 - 安装组件 支持大文件,无限制 有进度条 租用空间,
而需要上载大文件
转自:动态网制作指南 www.knowsky.com
************ 使用ADODB.Connect对象创建 ************************
Dim oConn
Dim sDatabaseName
sDatabaseName = "CodeCreateDB"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
oConn.Execute "CREATE DATABASE " & sDatabaseName
%>
方法二:
<%@ Language=VBScript %>
<%
******************* 使用 SQLDMO Object 对象库 *******************
Dim oSQLServer
Dim oDatabase
Dim oDBFileData
Dim oLogFile
Dim sDatabaseName
Dim sDatapath
数据库名字
sDatabaseName = "CodeCreateDBTest"
数据文件保存路径
sDatapath = "D:\"
创建Sql Server对象并进行链接,(local)处为Server名字
Set oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True 使用集成验证integrated security
oSQLServer.Connect "(local)"
oSQLServer.Connect "(local)", "sa", "" 使用标准验证 standard security
创建Database对象
Set oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
创建db文件对象
Set oDBFileData = Server.CreateObject("SQLDMO.DBFile")
With oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "\" & sDatabaseName & "_data.mdf"
.PrimaryFile = True
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
End With
创建日志文件对象
Set oLogFile = Server.CreateObject("SQLDMO.LogFile")
With oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "\" & sDatabaseName & "_log.ldf"
End With
把DB文件对象和日志文件对象添加到DataBase数据库对象
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile
把数据库添加到Sql server(create the database)
oSQLServer.Databases.Add oDatabase
关闭连接
oSQLServer.Close
释放对象
Set oLogFile = Nothing
Set oDBFileData = Nothing
Set oDatabase = Nothing
Set oSQLServer = Nothing
%>
转自:动态网制作指南 www.knowsky.com
各种上载方法横向比较结果:
服务器要求 浏览器要求 上传文件限制 上传时有无进度条 其他
SA-FileUp 安装组件 - 支持大文件,无限制 有进度条 需要有服务器控制权
AspUpload 安装组件 - 支持大文件,无限制 有进度条 需要有服务器控制权
lyfUpload 安装组件 - 支持大文件,无限制 无 需要有服务器控制权
化境无组件上传 - - 与IIS设置相关,
IIS默认设置最大200KB 无 通用,
适用小文件上载
无惧无组件上传 - - 与IIS设置相关,
IIS默认设置最大200KB 无 通用,
适用小文件上载
先锋无组件上传 - - 与IIS设置相关,
IIS默认设置最大200KB 无 通用,
适用小文件上载
XUploadFiles - 安装组件 支持大文件,无限制 有进度条 租用空间,
而需要上载大文件
纵横HTTP文件
上传组件 - 安装组件 支持大文件,无限制 有进度条 租用空间,
而需要上载大文件
转自:动态网制作指南 www.knowsky.com