数据库受到限制怎么办?_ASP教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!

推荐:如何用ASP编写网站统计系统
在目前的网站统计系统决大部分都是CGI的,但编写起来特别复杂,而ASP学起来简单,更有和数据库结合的优点,所以结合自己曾经做过的网站统计系统,和大家探讨一下ASP编写网站统计系统。 大家

不知道你是否从经遇到过这样的空间,他限制你使用数据库的大小,比如ACCESS MYSQL都限制在100M以下,如果你感觉这个空间很实惠,但是数据库受到限制又想还用这样的空间怎么办,由于我自己就遇到这样的问题,自己写了一个代码和大家分享,我的思路就是一个数据库不能超过100M,那么十个呢?10*100=1G,这样你的数据库还不够用吗?
代码如下,(数据库不受限制或高手可过)

判断数据库代码:
mdb=request.querystring("mdb")


调用代码:
if mdbsort<>"" then
sql="SELECT top 11 id,name from znwl_article where classid="&mdbsort&" order by click DESC"
else
sql="SELECT top 11 id,name from znwl_article order by click DESC"
end if
set rs=server.createobject("adodb.recordset")
if mdb=1 then
rs.open sql,conn1,1,1
namesort="wzyy"
elseif mdb=2 then
rs.open sql,conn2,1,1
namesort="yjzx"
...
else
response.write"信息错误"
end if


数据库连接代码
'定义数据库链接文件,根据自己的情况修改
Const AccessPath="数据库目录"
Const AccessFile="db1.mdb"
Const AccessFile1="db2.mdb"
...

'定义数据库连接
Dim Conn1,conn2
On Error Resume Next
Set Conn1= Server.CreateObject("ADODB.Connection")
Conn1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile)
Conn1.Open
'定义数据库连接2
Set conn2= Server.CreateObject("ADODB.Connection")
conn2.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessPath&"/"&AccessFile1)
conn2.Open
...
代码可以做成类,方便调用,有想法的朋友可以自己试试

有用MYSQL数据库的朋友,可以按照这个思路写一个代码

分享:ASP 3.0高级编程(三十七)
8.2.5 Stream对象 Stream对象用于访问节点的内容,比如一个E-Mail消息,或一个Web页面。利用Stream对象可以访问文件或资源的真实内容。因此,结合Record和Recordset对象,不仅可以访问Web服务器

来源:模板无忧//所属分类:ASP教程/更新时间:2008-08-22
相关ASP教程