8_10.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 17 行

<%
'删除Userlist表中性别为"男"的所有记录
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "txl"	  '打开数据库
Set Rs = Server.CreateObject("ADODB.Recordset")	
SQL = "Select * from userlist " 
Rs.Open SQL,Conn,0,3   '打开记录集Rs
Do while Not Rs.Eof
  If Rs("性别")="男" Then
    Rs.Delete
  End If  
  Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing
%>