一、 Asp页面访问数据库步骤
1、 创建一个到数据库的ADO
2、 打开数据库连接
3、 创建ADO记录集
4、 从记录集提取需要的数据
5、 关闭记录集
6、 关闭连接
二、 创建一个ODBC数据库连接
现有一个名称为“Northwind”的ODBC数据库,可以使用以下asp代码连接到此数据库:
<%
Set conn=Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
%>
三、 创建ADO记录集
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs =Server.CreateObject(“ADODB.recordset”)
rs.open “select * from customers” ,conn ,1,1
%>
四、ado查询(从记录集中提取数据)
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs =Server.CreateObject(“ADODB.recordset”)
rs.open “select * from customers” ,conn ,1,1
For each x in rs.fields
Response.write(x.name)
Response.write(“=”)
Response.write(x.value)
Next
%>
五、ado查询(记录集的显示)
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs =Server.CreateObject(“ADODB.recordset”)
rs.open “select * from customers” ,conn ,1,1
%>
<table border=”1” width=”100%”>
<tr>
<% For each x in rs.fields
Response.write(“<th)” &x.name & “</th>”)
next
%>
</tr>
<do util rs.eof %>
<tr>
<%for each x in rs.fields%>
<td><%response.write(x.value)%></td>
<%next
rs.movenext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
六、ado
表单记录:
<form method=”post” action=” demo_add.asp”>
姓:<input type=”text” name=”fname”/>
<br/>
名:<input type=”text” name=”lname”/>
<br/>
<input type=”submit” value=”submit”/>
</form>
demo_add.asp中代码:
<html>
<body>
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
Set rs=Server.CreateObject(“ADODB.RecordSet”)
sql=”insert into customers(fname,lname)”
sql=sql & “values”
sql=sql&”(‘ “ &request.form(“fname”) &” ’, ”
sql =sql&” ‘ ” & request.form(“lname”) &” ‘)”
on error resume next
conn.execute sql,recaffected
if err<>0 then
response.write (“No update permission!”)
else
response.write(“record added”)
end if
conn.close
%>
</body>
</html>
七、更新记录
利用sql的update语句来更新记录集:demo_update.asp
<html>
<body>
<h2>Update Record</h2>
<%
Set conn =Server.CreateObject(“ADODB.Connection”)
conn.open “Northwind”
//Set rs=Server.CreateObject(“ADODB.RecordSet”)
cid =request.form(“customerid”)
if request.form(“fname”)=”” then
set rs=Server.CreateObject(“ADODB.Recordset”)
rs.open “select * from customers where customerid=’ “ &cid&” ’ ” ,conn
%>
<form method=”post” action=”demo_update.asp”>
<table>
<%for each x in rs.fields%>
<tr>
<td><%=x.name%></td>
<td><input name=”<%=x.name%>” value=”<%=x.value%>”</td>
<%next%>
</tr>
</table>
<br/>
<input type=””submit” value=”Update record”/>
</form>
<%
Else
sql=”update customers set”
sql=sql & “fname=’” & request.form(“fname”)&”’,”
sql="lname=' " & Request.Form("lname") & " ' "
sql =sql&” where customerid =’”&cid&”’”
on error resume next
conn.execute sql,
if err<>0 then
response.write (“No update permission!”)
else
response.write(“record added”)
end if
end if
conn.close
%>
</body>
</html>
八、ado删除记录
利用sql中的delete语句删除记录
。。。
九、ADO对象
Connection
Command
RecordSet
Record
Error