首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论

日志搜索

 标题   内容


ASP初学者常犯的几个错误 ASP程序实现网页伪静态页源代码
未知 数据库受到限制怎么办?   [ 日期:2009-09-03 17:20:47 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速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条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com