
1、首先应创建 Connection 对象的实例。
下面的脚本创建 Connection 对象
<%
'Create a connection object
Set cn = Server.CreateObject("ADODB.Connection")
'Open a connectionthe string refers to the DSN
%>
2、接着打开数据库连接:
cn.Open "FILEDSN=MyDatabase.dsn"
注意:无论在等号 (=) 之前还是之后,DSN 字符串都不能包含空格。
在这种情况下,Connection 对象的 Open 方法引用基于 DSN 的文件,其中包含关于数据库的位置和配置信息。也可以不引用 DSN,直接显式引用供应程序、数据源、用户 ID 和密码。
3、连接过程:
<%
Set cn = Server.CreateObject("ADODB.Connection")'创建数据库连接对象
Set rsCustomers = Server.CreateObject("ADODB.Recordset")'创建数据库查询对象
cn.Open "FILEDSN=SQLlink.dsn" '打开数据库
strSQL = "SELECT username,password FROM [myDatabase].[dbo].[user] where username='duguying'"
rsCustomers.Open strSQL, cn'运行SQL语句
%>
4、处理数据库返回数据
Set username1= rsCustomers("username") '获取username字段的返回结果
Set password1= rsCustomers("password") '获取password字段的返回结果
Do Until rsCustomers.EOF
Response.Write username1 &" " &password1 &"<BR>"
rsCustomers.MoveNext
Loop '通过循环获取所有返回记录
1、数据库链接 conn.asp<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("数据库所在文件夹/数据库名.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)}dbq=" &DBPath
%>
2、所有需要数据库链接的页面都要包含<!--#include file="conn.asp"-->
3、数据库读:
<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from table_dayi where dayi_isreply=1 order by id desc"
rs.open sql,conn,1,1%>
<%=rs("dayi_title")%>
4、数据库写:
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from table_dayi"
rs.open sqlstr,conn,1,3
rs.addnew
rs("dayi_who")=session("name")
rs("dayi_title")=changechr(request.Form("title"))
rs("dayi_question")=changechr(request.Form("question"))
rs("dayi_chapter")=request.Form("chapter")
rs("dayi_date")=now()
rs("dayi_isreply")=0
rs("dayi_ip")=Request.serverVariables("REMOTE_ADDR")
rs.update
conn.close
%>
5、数据库修改:
<%
set rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from user where datediff('s',onlinetime,now())>600"
rs1.open sql,conn,1,3
rs1("onlinetime")=0
rs1("userip")=""
rs1.update
%>
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)