|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
MySQL数据库归MySQLAB公司所有,但是这个软件是开源的,有一个MySQL学习教程可以免费下载。稍俱常识的新入门者都可以轻松实现在一个常见硬件上安装和配置MySQL。以下为援用的内容:
<%
-------------------------数据库毗连-----------------------
SetobjConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource="&Server.MapPath("data.mdb")
objConn.Open
-------------------------数据库毗连-----------------------
-------------------------检索数据-----------------------
strSQL="SELECTid,DataColumnFROMDataTable"
Sql语句,检索数据库
SetobjRS=Server.CreateObject("ADODB.Recordset")
创立纪录集
objRS.OpenstrSQL,objConn,1,1
实行检索
Count=objRS.RecordCount
失掉纪录总数
Item=4
显现纪录数
-------------------------检索数据-----------------------
-------------------------------------------------------------------------------
redima(Item,2),t(Count)
界说2数组,数组a用来贮存纪录,数组t用来删选纪录
---------------------------------------
初始数组数值,目标为了拔出数据今后和此值做对照
foreachjint
j=0
next
---------------------------------------
---------------------------------------
随机抽取纪录号
Randomizetimer初始化随机数天生器
forj=1toItem
k=int(rnd*Count+1)从总数内里随机取一笔记录
dowhilet(k)0判别是不是纪录是不是已在数组中
k=int(rnd*Item+1)
loop
t(k)=1第k笔记录被选中
next
--------------------------------------
j=1:i=1界说下标
--------------------------------------
轮回拔取数据集objRS中的部分纪录寄存到数组中
DoWhileNotobjRS.Eof
ift(j)=1then
a(i,1)=objRS("id")纪录id
a(i,2)=objRS("DataColumn")纪录内容
i=i+1
endif
j=j+1
objRS.MoveNext
Loop
--------------------------------------
-------------------------------------------------------------------------------
----------------------------显现内容--------------------
fori=1toItem
Response.write"序号"&a(i,1)&"<br>"
Response.write"内容"&a(i,2)&"<p>"
next
----------------------------显现内容--------------------
---------------------------
开释资本
objRs.Close
setobjRs=nothing
objConn.Close
setobjConn=nothing
---------------------------
%>
这是无法比较的,因为基于云的数据库提供了不同的模式。关键是要通过围绕云计算产品来包装其他增值服务以适应不断变化的市场条件:这就是DBaaS。 |
|