三鸟个人网站源码。

				
				
								'    basket_id=request("basket_id")
				Set rs = Server.CreateObject("ADODB.Recordset")
				    sql="select * from basket where basket_id="&request("basket_id")
				    rs.open sql,conn,3,3
				            rs.delete
				        rs.update
				        rs.Close
				   set rs=Nothing
				   
				   conn.Close
				   set conn=Nothing
				        response.write "内容删除完毕"
				        response.write ""
				        response.redirect"buy.asp"
				end if%>