用ASP做数据库查询，该如何连接数据库？
用ASP做数据库查询，该如何连接数据库？如何写查询代码？如何写连接数据库的代码？ 问题点数：0、回复次数：6Top
1 楼ztmaster（totem）回复于 2005-06-04 15:36:06 得分 0
GOOGLE找一下学习资料Top
2 楼aiolia725（海水太蓝）回复于 2005-06-04 15:36:34 得分 0
<% 'option explicit强制定义变量 第一行使数据库支持中文，默认脚本语言@LANGUAGE="VBSCRIPT"
dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("yx.mdb")
'新版本连接数据库
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("yx.mdb")
'老版本连接数据库
Set rs = Server.CreateObject("ADODB.Recordset")
'创建游标
%>Top
3 楼lovebeyondforever（我不信）回复于 2005-06-04 15:53:02 得分 0
access:
<%
dim conn,rs
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("**.mdb")
conn.open= "provider=microsoft.jet.oledb.4.0; data source="&DBpath
Set rs=Server.CreateObject("ADODB.RecordSet")
sub closeDB
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end sub
%>
SQL
<%
dim sql,rs,conn
sub openDB_DSN()
set conn=server.createobject("ADODB.Connection")
conn.open"DSN=***; UID=**; PWD=**"
set rs=server.createobject("ADODB.Recordset")
end sub
sub openDB()
set conn=server.createobject("ADODB.Connection")
conn.open "Driver={SQL Server};"_
&"Server=**;" _
&"Database=**;" _
&"Uid=**;" _
&"Pwd=**"
set rs=server.createobject("ADODB.Recordset")
end sub
sub closeDB()
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end sub
%>
把星号改成你自己的就行了
查询语句这个...
同意1楼的去google
Top
4 楼cslren（位流）回复于 2005-06-04 16:04:11 得分 0
给你一个学习的好地方 http://www.eob.cn/bbsTop
5 楼zjx1302（爱好者）回复于 2005-06-04 16:41:33 得分 0
看来已经解决了！我就不用再发了！Top
6 楼BlueCigar（蓝色雪茄）回复于 2005-06-04 19:17:28 得分 0
应该学一下ADO把
Top
