删除一条记录
<STRONG><FONT size=4><FONT color=#cc0000><FONT face=新宋体>删除数据库记录主要用到rs.delete,rs.update<WBR><WBR><BR><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em"> <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)</FONT></FONT></FONT></FONT><WBR><WBR><BR></STRONG><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> <%</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> dim name</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> name="xx"</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> set rs=server.CreateObject("adodb.recordset") (建立recordset对象)</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> sqlstr="select * from message" ---->(message为数据库中的一个数据表,即你要显示的数据所存放的数据表)</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000>------------------------------------------------------- </FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> while not rs.eof</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> if rs.("name")=name then</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> rs.delete</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> rs.update 查询数据表中的name字段的值是否等于变量name的值"xx",如果符合就执行删除,</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em"><FONT style="LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> else 否则继续查询,直到指针到末尾为止</FONT><WBR></FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> rs.movenext</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> emd if</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> wend</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000>------------------------------------------------------ </FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> rs.close</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> conn.close 这几句是用来关闭数据库</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> set rs=nothing</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> set c</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000>------------------------------------------------------- </FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=新宋体 color=#cc0000> %></FONT></B>页:
[1]
