回顾以前的ASP而做的笔记,希望对初学ASP的学者有点用处

本文链接：https://blog.csdn.net/xuangege/article/details/1778818

本文介绍使用ADO进行数据库连接及操作的方法，包括插入数据、查询记录、遍历结果集等，并提供示例代码说明如何实现这些功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

数据库连接(SQL)
<%
Dim cn
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open"Driver={SQL Server};Server=xl;Database=lek;UID=sa;PWD=admin"
%>
用完后关闭数据库连接
<%
cn.close
set cn=nothing
%>
对数据库的操作方法(一) 这种方法不常用:
<%
Dim cn
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open"Driver={SQL Server};Server=xl;Database=lek;UID=sa;PWD=admin"
cn.Execute("insert Chapter1(ID,PWD,Email)values('qhl','321a',"&"'pp@163.net')")//这是是没   %>
有返回值的,若要返回值则需这样写:
<%
    Dim cn,rs
    Set cn=Server.CreateObject("ADODB.Connection")
    cn.Open"Driver={SQL Server};Server=xl;Database=lek;UID=sa;PWD=admin"
    set rs=cn.Execute("select * from aa")
%>
对数据库的操作方法(二) 建议用此方法
<%
    Dim cn,rs
    Set cn=Server.CreateObject("ADODB.Connection")
    cn.Open"Driver={SQL Server};Server=xl;Database=lek;UID=sa;PWD=admin"
    set rs=Server.CreateOject("ADODB.RecordSet")
    rs.Open"select * from aa"
    ...
    %>
    <%
     do while not rs.eof
    %>
    ...
   <%
    if not rs.eof then rs.movenext
    loop
   %>
{若以上的rs返回记录集,则需要用以下语句来关闭,包括再使用记录集进行其它的操作,相当于delphi中 sql.clear}
   <%
    rs.close
    set rs=nothing
   %>
{最后用此语句结束所有有关数据库的操作}
   <%
    cn.close
    set cn=nothing
%>

对记录的操作:
movefirst;movelast;movenext;moveprevious;bof;eof;
<%
    Dim cn,rs
    Set cn=Server.CreateObject("ADODB.Connection")
    cn.Open"Driver={SQL Server};Server=xl;Database=lek;UID=sa;PWD=admin"
    set rs=Server.CreateOject("ADODB.RecordSet")
    rs.Open"select * from aa"
    if len(request("i"))=0 then
      i=1
    else
      if request("type") = "next" then
      i = request("i") + 1
      for j=1 to i-1
       if not rs.eof then rs.movenext
      next
    ....
   %>
包含文件的操作:
   想到大家在这一方面可能都会经常用到这种方法:
 这种方法不好在于会增大ASP文件所以建议大家用以下方法:

书签的使用:(不能跨越记录集使用)
<%
   dim mybk
   mybk=rs.bookmark
%>
   <%rs.bookmark=mybk%>
    %>
过滤的使用:rs.filter 以下达到分类显示内容
<%
    Dim cn,rs
    Set cn=Server.CreateObject("ADODB.Connection")
    cn.Open"Driver={SQL Server};Server=xl;Database=lek;UID=sa;PWD=admin"
    set rs1=Server.CreateOject("ADODB.RecordSet")
    set rs2=Server.CreateOject("ADODB.RecordSet")
    rs1.open("select distinct 出版社 from bb")
    rs2.open("select * from aa")
%>
...
<%
   do while not rs.eof
%>
   .....输出rs1的内容
   <%
     rs2.filter ="出版社='"&rs1("出版社")&""
     do while not rs2.eof
   %>
.....