课14

 用ASP对象来添加和更新 
----------------------------------------------------------------------------------------
   Function objconn(FileName)
     set objConn=Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
                                                 "Data Source=" & Server.MapPath(FileName)
   objConn.open
 end Function
 set conn=objConn("price.mdb")
 sql="select * from 零件报价表"
 set objrs=server.CreateObject("ADODB.recordset")
 objrs.open sql,conn,3,3
 objrs.addnew array("零件种类","厂家"),_
              array("sfsf","ddddd")
 objrs.updat
---------------------------------------------------------------------------------------------------
读取字段和数目
Function objconn(FileName)
     set objConn=Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
                                                 "Data Source=" & Server.MapPath(FileName)
   objConn.open
 end Function
 set conn=objConn("price.mdb")
 sql="select * from 零件报价表"
 set objrs=server.CreateObject("ADODB.recordset")
 objrs.open sql,conn,3,3
%>
<table>
<tr>
<%
  for i=0 to objrs.fields.count-1
    response.Write("<th>"& objrs.fields(i).name & "</th>")
 next
 %>
</tr>
<% do while not objrs.eof
    data="<tr>"
 for i=0 to objrs.fields.count-1
    data=data & "<td>"& objrs.fields(i).value & "</td>"
 next
 response.Write(data & "</tr>")
 objrs.movenext
 loop
 %>
</table>
------------------------------------------------------
投票系统
购物系统