怎么使ASP连接数据库...急急

[liangsong07]

开始的准备(连接一个DSN和ACCESS文件)和在ASP代码中的连接
具体操作.
再问个非技术的问题:用ASp做网站都得写代码吗?

[Atai-Lu]

用asp做网站可以不用写代码,真的.

[jingxiaoping]

建议你先搜索一下吧，用ASP做网站当然需要写代码了。

[ChaoYu]

Strconn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(addessDB)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Strconn

[ChaoYu]

set conn = server.CreateObject("ADODB.Connection")
'sql
conn.Open "Provider=SQLOLEDB;Persist Security Info=True;User ID=xxx;password=xxx;Initial Catalog=xxx;Data Source=127.0.0.1"
'Access Database
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath(dbstr&"Data/xg.mdb") &";"

[liangsong07]

主要是开始的准备.数据源的准备

[hunfeiposan]

你是初学者吗?

建议看看下面的基础!
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


ASP与数据库-连接、写入、修改、删除、显示代码分类:ASP学习
数据库连接
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
MS Access数据库连接

用DSN连接并且没有用户名和密码：

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>

用DSN连接并且有用户名和密码：

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>



用实际的数据库绝对路径连接：

<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=e:\yanhang\database.mdb"
conn.Open Strconn
%>

用实际的数据库相对路径连接：

<%
Set conn=Server.CreateObject("ADODB.Connection")
Strconn="DRIVER={Microsoft Access Driver (*.mdb)}; "
Strconn=Strconn & "DBQ=" & Server.MapPath("/database/yanhang.mdb")
conn.Open Strconn
%>


MS SQL Server数据库连接

用DSN连接：

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>

不用DSN连接：

<%
Set conn=Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>

Oracle数据库连接：

<%
set conn=server.createobject("adodb.connection")
conn.cursorlocation=adUseClient
DSNTemp="Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world"
conn.open DSNtemp
%>

数据写入

……………………………………………………………………………………
<!--＃i nclude file="common/conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from online"
rs.open sql,conn,3,2
rs.addnew
rs("name")=request("name")
rs("Tel")=request("tel")
rs("fax")=request("fax")
rs("mail")=request("email")
rs("code")=request("zip")
rs("content")=request("contents")
rs("Address")=request("Address")
rs.update
rs.close
%>

数据修改

……………………………………………………………………………………
<%
if request("action")="edit" then '判断是否修改

'取得表单传递的数据
member_name=Trim(Request.Form("member_name"))
member_pwd=Trim(Request.Form("member_pwd"))
question=Trim(Request.Form("question"))
answer=Trim(Request.Form("answer"))
realname=Trim(Request.Form("realname"))
sex=Trim(Request.Form("sex"))
zip=Trim(Request.Form("zip"))
address=Trim(Request.Form("address"))
tel=Trim(Request.Form("tel"))
fax=Trim(Request.Form("fax"))
mobile=Trim(Request.Form("mobile"))
email=Trim(Request.Form("email"))
web=Trim(Request.Form("web"))
vip=request.form("vip")
remark=Trim(Request.Form("remark"))


sql="select * from member where m_id="&m_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3

rs("member_name")=member_name
rs("answer")=answer
rs("question")=question
rs("member_pwd")=member_pwd
rs("realname")=realname
rs("sex")=sex
rs("zip")=zip
rs("tel")=tel
rs("mobile")=mobile
rs("fax")=fax
rs("address")=address
rs("email")=email
rs("web")=web
rs("vip")=vip
rs("remark")=remark

rs.update
rs.close
set rs=nothing

call ok("资料修改成功！","edit_member.asp?m_id="&m_id)

end if
%>
数据删除

……………………………………………………………………………………
<%
if Trim(Request.QueryString("action"))="del" then
ID = Trim(Request.QueryString("ID"))
set rs=server.createobject("adodb.recordset")
sql="select * from pay where ID ="&ID
rs.open sql,conn,1,3

rs.delete
rs.close
end if
%>

数据显示

……………………………………………………………………………………
<%
Lei="行业资讯" '设置显示信息类别
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 20 * from News where Lei <> '"&Lei&"' order by ID desc"
rs.open sql,conn,1,1
if rs.eof then '判断数据库内有无信息，防止读取错误
%>
暂无信息!
<%
else
do while not rc.eof
%>
<%if len(rs("Title")) > 10 then Response.write left(rs("Title"),10)&"..." else Response.write rs("Title") end if%>
<%
'循环显示数据
rc.movenext
loop
rc.close
set rc=nothing
end if%>

[wangwm]

ACCESS数据库直接连接：

set conn = Server.CreateObject("ADODB.Connection")
strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "带路径的数据库"
conn.open strConn

用DSN连接并且没有用户名和密码：


set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"


用DSN连接并且有用户名和密码：


set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"

[badwish]

asp不一定要用代码写
但我觉得，如果你不写代码，那你就学不好asp。

[liangsong07]

是初学者.谢谢大家了.

[feibenzu]

数据库连接代码
set conn=Server.Createobject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库文件名")
conn.open connstr

打开数据库


strsql="select * from 数据表名
set rs=server.CreateObject("ADODB.Recordset")
rs.open strsql,conn,1,1

[loucc]

哈哈,我看这里得建一个新手区,这样会好点的

[liangsong07]

谢谢我懂了,ASP和数据库连接,可以用DSN也可以直接连我给分的都是说的好的.也感谢其实回答的朋友