delete.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 17 行

<!-- #include virtual="/func/DB.fun" -->
<%
Set rs = GetMdbRecordset("Sample.mdb", "股票行情表")
If rs Is Nothing Then
    Response.Write "GetMdbRecordset 调用失败!"
    Response.End
End If 

While Not rs.EOF
    If rs("涨跌") = 0 Then
        rs.Delete        
        count = count + 1
    End If
    rs.MoveNext
Wend
%>