怎么使ASP连接数据库...急急
开始的准备(连接一个DSN和ACCESS文件)和在ASP代码中的连接
具体操作.
再问个非技术的问题:用ASp做网站都得写代码吗?
[解决办法]
你是初学者吗?
建议看看下面的基础!
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
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%>
[解决办法]
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 "
