海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
不知道你是否从经遇到过这样的空间，他限制你使用数据库的大小，比如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数据库的朋友，可以按照这个思路写一个代码

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!