学习程序很大一部分需要与数据库连接操作,这里简单的整理下白杨连接接近的一些代码,方便需要的朋友
1.相对与比较老的环境,建议使用第二个
设置dbconnection=Server .CREATEOBJECT('ADODB .连接)
DBPath=服务器MapPath("客户。MDB”)
数据库连接.open ' Driver={ Microsoft Access Driver(* .MDB)};dbq=' DBPath
SQL=' select * from auth where id=' ' user _ id ' ' '
设置uplist=dbconnection .执行(SQL)
2.win2003以上的机器,建议用此方法,效率更高
设置dbconnection=Server .CreateObject('ADODB .连接)
DBPath=服务器MapPath("客户。MDB”)
数据库连接.“开放”提供商=Microsoft。杰特。oledb。4.0;数据源='dbpath
SQL=' select * from auth where id=' ' user _ id ' ' '
设置uplist=dbconnection .执行(SQL)
3.
DBPath=服务器MapPath("客户。MDB”)
设置会话(' RS ')=服务器.CreateObject('ADODB .记录集)
rs=服务器CreateObject('ADODB .记录集)
connstr=' provider=Microsoft。杰特。oledb。4.0;数据源='dbpath
SQL=' select * from auth where id=' ' user _ id ' ' '
会话(' rs ').打开sql,connstr,1,3
4.建开放式数据库连接性源xxx
设置conn=服务器。createobject(' adodb。连接’)
conn.open ' DSN=xxxUID=PWD=;数据库=客户
5、附上一个经常用的sqlserver与接近通用的连接数据库代码
%
Const DataBaseType=1
如果数据库类型=0,则
DBPath='/jb51/news.asp '
SqlNowString='Now()'
ystr=true
nstr=false
suiji='rnd(id)'
其他
'如果是结构化查询语言数据库,请认真修改好以下数据库选项
DataServer='wwwjb51net ' '数据库服务器互联网协议(互联网协议)
DataUser='jb51net ' '访问数据库用户名
DataBaseName='jb51net ' '数据库名称
DataBasePsw='密码' '访问数据库密码
SqlNowString='getdate()'
ystr=1
nstr=0
suiji='newid()'
如果…就会结束
出错时继续下一步
如果数据库类型=1,则
ConnStr=' driver={ SQL Server };server=' dataserverUID=' data user pwd=' database PSW ';数据库='databasename
其他
ConnStr='Provider=Microsoft .杰特。OLEDB.4.0数据源='服务器MapPath(DBPath)
如果…就会结束
设置连接=服务器CreateObject('ADODB .连接)
打开连接
如果错了,那就错了。清除:Set conn=Nothing:Response ."写"数据库连接出错,请检查Conn.asp文件中的数据库参数设置'回答。结束
%
完整测试代码
Microsoft Access驱动程序
%
db='1.mdb '
暗淡的连接
dim connstr
出错时继续下一步
DBQ服务器。mappath(' db ' ')';默认目录=;驱动程序={Microsoft Access驱动程序(*。MDB)};"
设置conn=服务器。createobject(' ADODB .连接)
如果出错,那么
错误清除
其他
打开连接
如果…就会结束
t=定时器()
对于i=0到1000
set Res=Conn . Execute(' Select(从[aa]中选择前1名,其中id=1)作为旧名称,(从[aa]中选择前1名,其中id=2)作为来自[aa]'的新名称)
aa=Res('旧名称)
bb=Res('新名称)
资源关闭
设置Res=无
然后
' response.write '用时:'(timer()-t)
%
微软jet.oledb.4.0
%
db='1.mdb '
暗淡的连接
dim connstr
出错时继续下一步
connstr=' provider=Microsoft。杰特。oledb。4.0;数据源='服务器。mappath(' db ' ')
设置conn=服务器。createobject(' ADODB .连接)
如果出错,那么
错误清除
其他
打开连接
如果…就会结束
t=定时器()
对于i=0到1000
set Res=Conn . Execute(' Select(从[aa]中选择前1名,其中id=1)作为旧名称,(从[aa]中选择前1名,其中id=2)作为来自[aa]'的新名称)
aa=Res('旧名称)
bb=Res('新名称)
资源关闭
设置Res=无
然后
'响应。写入'用时:'(timer()-t)
%
到此这篇关于动态服务器页面连接接近数据库的几种方法的文章就介绍到这了,更多相关动态服务器页面连接接近数据库内容请搜索我们以前的文章或继续浏览下面的相关文章希望大家以后多多支持我们!
郑重声明:本文由网友发布,不代表盛行IT的观点,版权归原作者所有,仅为传播更多信息之目的,如有侵权请联系,我们将第一时间修改或删除,多谢。